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“Cheep Memory For Your Tandy 200. 


Announcing: 


the GOUNDALSFN SOLD 


Megabytes of memory on a credit-card-sized 
A mere 71/83" thick 





Give your Tandy 100/102 the power it deserves without sacrificing portability or RAP IRS bulky e 
The SoundSight Gold Card lets you add as many megabytes of RAM and ROM as VEO TSO 
advantages other expansions just can't match. j 























* Allows Unlimited RAM and ROM expansion in increments from 
128k to 1mb per card with 2 mb cards available in '88. Additional 
slots piggyback allowing 10 mb or more! 


* Dual Card Slots with dual directories allow easy 
transfer of megabytes of data from card to card 
or computer to computer in seconds. 


SoundSight | 
Gold Card | 


Memory Credit: 
Imeg 


Battery expiration datc: 


* Menu Driven ROM resident 
operating system with Basic V/O 
functions, read/write error detection, and 
nondestructive RAM test. Accesses Text, Basic 
and Co files directly and operates in Random Access 
Mode. Each byte is directly accessable from Basic. 


* SoundSight Gold Cards are also available in permanent One- 
or Read-Only-Reprogrammable memory cards for 


large nonvolatile software application use in conjuction with RAM cards. 


Optional new ROM ELIMINATOR lets you load and run 

multiple ROMs directly from the SoundSight Gold Card, 

dispensing with the need for extra FROM sockets or even 
having your ROM chips with the computer! 








* ROM resident Forms Generator with full Telecommunications and Desk Top package 
for Law Enforcement Incident Reports, or any custom data entry applications 


* Point of Sale Inventory Control Software 

* New Basic Compiler compiles basic programs to machine code, condensing thern to 
fraction of there original size and speed. Runs them directly from cards. (Avail. Feb. '88.) 

* New Text Editor opens and edits files as large as available ram.(Avail. Feb. '88 





SoundSight offers customized hardware/software systems for law enforcement, retail, 
warehousing/distribution and other vertical markets, as well as third party dev. (C language). 
We're ready to meet your needs TODAY! 


Pricing available from 128k to 10mb with1 28k at $399.95; 256k at $549.95; and 512k at 
$749.95; Additional cards for backup are available. 
CONTACT: 
SoundSight MBM inc., 225 West Broadway, Suite #509, Glendale, CA 91204 > 
Phone (213) 463-9457 or (818) 240-8400 







FREE ISSUE 


Add POWER to your 
portable with 
PICO—The Magazine of 


PORTABLE COMPUTING ! 
Take your first issue FREE 


with the coupon below! 


hatever you call them, PICO sizes them all up every month. 
PICO is where you'll find the hardware, the software, the applications, 
peripherals and more that help you get all the power your portable can deliver! 
Issue after issue, PICO's computing pros bring you valuable how-to's, tips 
and techniques, extended tutorials, on-target news, reviews and previews, 
software updates, buyer's guide — all designed to make you a better computerist, 
whatever your favorite portable brand or flavor. 


“The hottest magazine for the hottest new technology in computing!” 
says tech consultant Greg Resker. gm | 


SEE FOR 
YOURSELF 

WITH YOUR 

FIRST ISSUE, FREE! 


Complete the coupon and mail 
today to get your first issue of 
PICO FREE and without obliga- 
tion of any kind. If you're not 
satisfied, just write “cancel” on 
the invoice and owe nothing. 
The issue is yours to keep. 
Otherwise, a full year of PICO's 
money-saving help and exper- 
tise is just $29.97, GUARAN- 
TEED. Cancel at any time and 
receive prompt refund of the 
unused portion of your sub- 
scription. 


SPECIAL BONUS 


Send payment with your order — 
with full refund guarantee — and 
get PICO's exclusive Buyer's 
Guide to 88 current portables 
including data on 17 
performance catagories! 


| BBS. If not satisfied, I'll mark “cancel” on the invoice and owe nothing. 


| (Å Payment/Charge enclosed. Please send BONUS 





Subscription includes | 
FREE MEMBERSHIP 
on The Source database 
(a $49.95 value) 
plus access to the PICO BBS! 


Buy smart - Computer smart with PICO. 
Complete the coupon now and mail today! 
Mail to: PICO P.O. Box 428, Peterborough, NH 03458-0428 


YES | send my first issue of PICO to examine for 30 days, FREE! 
Also enter my no-risk subscription for one year at $29.97* — 30% off the cover price. 
Subscription includes membership in THE SOURCE, a $49.95 value, plus access to the PICO 





4 Bill me. l'il skip the BONUS—Portable Computer Buyer's Guide. 
M 2 Yrs, $55 (Save $5) (Full refund guarantee.) 




















(à CHARGE MY: A MC Li Visa Card# Ex.Dt — 
(print) NAME —— 

Address . 

City Sig--—. Zip 

Computer Type = 


*Canada & Mexico, $32.97, all other foreign, $49.97. Airmail add $50.00, US funds drawn on US banks 
only. Please allow 4-6 weeks for delivery of your first issue. 
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ROM WITH A VIEW 


This is the start of Portable 100's new look. Each month for the next several 


| month's you'll see a few more changes and improvements in the articles and the 





magazines appearance. 

You may already have noticed the increase in material about the Tandy 200 
(The Custom 200 department, for example) and mention of articles coming on 
the Tandy 600. I can tell you we have some dynamite articles coming in the 
future on all of Tandy's notebook computers, things about the bar code port on 
the 100/102/200, disk prorams for the 600, and construction articles that are 
easy enough for everyone, even novices who have only rarely touched a 
soldering iron. 

Many of our readers have lamented the fact that so little advertising seems 
to be in the magazine and begging us to tell the vendors that the readers want 
to see more advertisements. Part of the reason you don't see more advertise- 
ments is that there just aren't a lot of vendors out there who support the Tandy 
notebook computers. Plus, the high cost of buying advertising space scares off 


| many potential vendors who might be interested in boot-strapping a home- 





based hobby into a business. 
To alleviate that problem this issue inaugerates the premier of the Portable 
100 Classifieds. This is an inexpensive forum for people who have items they 


| wish to sell to reach other readers who might be interested in buying. After 


testing the water with these small advertisements, a successful vendor could 
move up to another innovation from us: the ninth-page advertisements. These 
small display advertisements are approximately 2.25-inches wides by 3-inches 
high and will be available for as little as $99 each ona twelve-times contract. For 
more information on the Classifieds, I refer you to the last page of this issue. For 
more information on the ninth-page advertisements, you should call Randy 
Byers at 603-924-9455. 

Well, that's all for the moment. We'll keep you posted on any other new 
developments (by the way... Did you hear that Tandy bought Grid Systems, the 
manufacturer of the Rolls-Royce of MS-DOS laptop computers?). 

-Terry Kepner 














Toolbox 





Manuscripts were typed into Micro- 








1400 LT and Mac-link. Diana then | 


soft Word 3.0 on a Tandy 1400 LT 
(dual drive, 640K), where they were 


. edited, spell-checked, and had basic 
| format instructions inserted. From 
| there they were loaded into a Tandy 





4000 (80386 CPU, Tandy EGA Moni- 


| tor, Tandy LP-1000 LaserPrinter) 


desktop computer and placed into 
Aldus' IBM PageMaker 1.0A. There 
they were dummied into a rough ap- 
proximation of the magazine's final 
appearance. Here, pull quotes are 
placed, headlines, intros, and bylines 
are sized and positioned, and adver- 
tisements are allocated space. 

Next, the magazine (divided into 
sections) was ported over to Diana 
Wallace's Macintosh Plus, using the 





went over the publication using 


Aldus Macintosh PageMaker 2.0A, | 


page-by-page, making final design 
decisions on photo, figure, and listing 
sizes and placements. She precisely 
placed the text and added all the little 
things that go into making a nice 
looking publication. 

Approximate page previews were 
output from her Apple LaserWriter 
Plus. When everyone was satisfied 
with the appearance, the Macintosh 
disk was sent to Colorite Corp. in 
Wisconsin for final output directly 
onto film (and in some cases, photo- 
graphic paper). The film was then 
delivered to the printer, who printed 
it, labeled it, and mailed it. 
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The Missing Link in 


Ihe Missing Link 











he article The Missing Link 
by Dr. Rudy Kokich, in- 
deed has a missing link. 
On page number 19, the Doctor 
writes about a figure two and lines of 
programming that don’t exist. I 
thought you had an excellent pro- 
gram. I am disappointed. 
You havea good magazine. Please 
Keep it that way! 
Morris Harris 
Washington DC 


As many others have said, I am an 
almost original subscriber to Portable 
100 and am very glad to see this 
magazine remain in publication. In 
the February 1988 issue I was really 
impressed with the program written 
by Rudy E. Kokich, THE MISSING 
LINK. It is both tightly reasoned and 
complete. 

The trouble is I'm having diffi- 
culty understanding it entirely. Par- 
ticularly, I can't find Figure 2 listed 
on page 19. Also Im not familiar with 
using PEEK's and CALL's. "CALL 
17001 for example in program line 12. 
Also where is the "100byte subrou- 
tine located at the end of line 5 and in 
line 8". 

To me this isa very good program 
that might be used as a program 
teaching example. Would you con- 
sider explaining it more thoroughly 
in a later article? If not that, can you 
print its "Figure 2" and better iden- 
tify/explain the crucial "100 byte 
subroutine"? 

William J. Spry 
Youngstown, NY 

Oops. In the rush to put out that issue, 
we somehow forgot that figure. Sorry for 
any inconvenience. Here it is as figure 1. 

Eds. 





MORE NUMBERS, 
LESS WORDS 

My major areas of interest are 
business applications, stock market, 
financial applications. Most of your 
applications seem to be word ori- 
ented. How about giving number 
people a little input, too. 


R. Flowers 
Wichita, KS 
We're working on it. 
Eds 
FRACTIONS 
IN THE WOOD SHOP 


It is wonderful to receive Portable 
100 again. In the past I have learned 
a great deal from this magazine and 
have been directed to many useful 
peripheral products and programs. 
Hopefully, that shall continue. 

The article in the February issue, 
entitled FIF Is Alive and Well, by Gene 
Burress, intrigued me because, hav- 
ing a small home wood shop, I have 
found considerable use for a fraction 
solving program. While Mr. Burress' 
program is very interesting, it is lim- 
ited to only those fractions that are 
the standard parts of an inch. Viz: 
halves, quarters, eights and six- 
teenths. 

Enclosed is a listing of a program 
that I developed some time ago for 
my PC-2 pocket computer, which I 
use whenever I work in my shop. (I 





don’t like the idea of getting sawdust 
into my Model 100’s keyboard.) But, 
since I draw my plans in my den, I 
adapted the same program to my 
Model 100. 

My program differs from Mr. 
Burress’ in that it will add, subtract or 
multiply any fraction by any fraction. 
Because radical numbers are too eas- 
ily created when multiplying or re- 
stricted to a whole number, I have 
also restricted the division answer to 
no finer than 128ths. After all, in a 
wood shop it is impossible to meas- 
ure to a 128th and it is surely impos- 
sible to saw any closer. 

Also, in a wood shop, feet are sel- 
dom used. Almost all measurements 
are in inches and fractions of an inch. 
so, my program does not provide an 
entry for feet, nor does it reduce feet 
to inches. 

This program also provides the 
opportunity to doasequence of prob- 
lems. As an example, adding the 
width of a saw blade to the length of 
à piece needed and then multiplying 
by the number of those pieces desired 
so that I can get a board that is long 
enough. 

Warren S. Gibson 
Olympia, WA 

Thanks for your support and the op- 
portunity to share your program. We've 
listed it here as figure 2. 

Eds 





";X$:X=VAL(X$) 

102 A$="Y="+B$+CHR$(0) 

103 A=VARPTR(A$) 

104 B=PEEK(A+1)+256*PEEK(A+2) 
105 CALL 1606,0,B 

106 CALL 2499,0,63105 

107 PRINT" Result of f(X) = ";Y 








100 CLS:LINE INPUT"Enter Equation, f(X) = ";B$ 
101 IF INSTR(B$,"X")+INSTR(B$,"x")>0 THEN LINE INPUT"Enter X Value, X = 





Figure 1. The missing Figure 2 from February's The Missing Link article 
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1010 GOSUR1350 

1020 GOSUB1560 

1030 LETX3SX1/XZ:LETXA4-X*X3:LETA-X4 
1040 PRINT@175,"+, —, *, /" 
1050 A$=INKEYS$:IFA$=""THEN1ØSØ 
1060 IFA$-"-*"THEN1110 

1070 IFA$="-—"THEN117Ø 

| 1080 IFA$="*"THEN124Ø 

1090 IFA$="/"THEN13ØØ 

1100 GOTO1Ø4Ø 

111Ø GOSUB1350 

1120 GOSUB1560 


1140 GOSUB140a 

1150 GOSUB147Ø 

1160 GOTO1500 

1170 GOSUR1350 

1180 GOSUPR1560 

1190 LETX3=X1/X2:LETX4=X+XFIILETB=X4 
1200 IFA>BTHENLETC=A-B:GOTO121Ø 
1210 GOSUR1400 

1220 GOSUB147Ø 

1230 GOTO1500 

1240 CLS:PRINT:INPUT"Whole No.:";R 
1250 LETC-A*R 

1260 GOSUR1400 

1270 IFBR=ØTHENLETBB=Ø:LETCC=Ø 

1280 GOSUR1470 

1290 GOTO15ØØ 

1300 CLS:PRINT:INPUT"MWhole No.:"3B 
1310 LETC=A/B 

1320 GOSVB14ØØ 

1330 GOSUB147@ 

1340 GOTO1500 

1350 CLS:PRINT:INPUT"Whole NO. "5X 
|1360 INPUT"Numerator  :";jXI1 

1370 INPUT"Denominator:" 3X2 

1380 CLS:PRINT894,X5" "3X1;"/"3X2 
1390 RETURN 

1400 LETZ-2 

1410 LETY=INT(C) :LETAA=Y 

142Ø LETYY=C-Y 

1430 IFZ>=128THENLETP$="+" 1 GOT0146Ø 


1450 
1460 LETBB=Y1:LETCC=Z RETURN 


1480 A$-INKEY$:IFA$-""THEN1480 
1498 RETURN 

1500 CLS:PRINTA95, "More? Y/N:" 
1510 A$-INKEY$:IFA$-""THEN1510 
1520 IFA$-"Y"ORA$-"u"THEN1550 

1530 IFA$-"N"ORA$-"n"THENMENU 

1540 GOTO1500 





1560 FORT-1TO35Q0:NEXTT*: RETURN 


1000 CLS:LETP$-"":PRINT395,"Fractions":GOSUB1560 


1130 LETX3=X1/X2°LETX4=X+X3:LETB=X4:LETC=A+B | 3. 


1440 LETY1-YY*Z:LETY2Z-INT(Y1)0:LETY3-Y1—-Y2 
IFYSzOTHEN146QELSELETZ-241:GOTO1430 


1470 CLS:PRINTà93,"-";AA;" ";BP;"/"3CC$P$ 


1550 LETX-AA:LETX1-BR:LETXZ2-CC:GOTO1Q030 


PC do the following: 

1. Type Mode Com1:12, 
n,8,l,p on the PC. (1200 
Baud is the fastest rate 
that is reliable). 

2. On the Tandy, load the 
file into BASIC or the 


TEXT editor. 
Press F3 (Save) 

4. For TEXT type 
COM:58N1E (Do not 


press ENTER yet) For 
Basic type Com:58N1E 
(Do not press ENTER 


yet) 
5. On the PC type COPY 


COM1:FILENAME.EXT 
and press ENTER. (At 
this point you will 
sometimes get a "Gen- 
eral failure reading 
Device Coml:". Typing 
"R" will usually do the 
trick and you will get a 
blinking cursor.) 

6. Now, press ENTER on 
the Tandy. The file will 
be sent to the PC. When 
it has been transferred, 
the light on the disk 
drive will come on and 
the message "1 file(s) 
copied" will appear. 
The cursor will also 
reappear on the Tandy. 











Figure 2. Fractions work for the woodshop worker. 


SAVING FILES FROM A TANDY 

TO AN MS-DOS 

After reading your response to 
people who want to know how to 
save files froma Tandy portable to an 
MS-DOS machine I thought you 
might be interested in a way to do it 
ona Model 100 without having to run 
Telcom or any other communications 
program. All you need is a null 
modem cable, DOS on the PC, and 
either the Text editor or Basic on the 
Tandy. Use the Text editor for .DO 
files or you can transfer a program 
directly to or from Basic on the 
Tandy. It will be saved on the PC as 
an ASCII file. 

Tosavea file from the Tandy to the 





Sending a file from the 
PC to the Tandy is just 
slightly different. 

1. If you have not already done so, 
give the Mode command in Step 1 
above on the PC. 

2. Type COPY FILENAME.EXT 
COM T: on the PC (Do not press 
ENTER yet). 

3. Go into the TEXT editor or BASIC 
on the Tandy. If you are using the 
text editor you must name the file 
you are receiving. 

4. Press F2 (Load) 

5. For TEXT type Com:58N1E (and 
press ENTER) For BASIC type 
Com:58N1E (and press ENTER) 

6. Press ENTER on the PC. When the 

file has been sent to the Tandy you 

will get "1 file(s) copied" on the PC. 





7 Press SHIFT BREAK onthe Tandy. 
Inthe TEXT editor the files willap- 
pear. In BASIC you will get "?IO 
ERROR" followed by "OK" and 
^C. List the program to see that it 
is there and you can save it to 
memory. 

An important thing to keep in 
mind is that after the commands are 
given on both machines, press Enter 
first on the machine that is to RE- 
CEIVE the file. These instructions 
may seem a bit lengthy but after you 
do it a few times you will find it is 
really quite simple and fast. 

In the November 1987 issue of 
PICO Magazine was an article by Paul 
Silagi called Control That Printer in 
which he gave two pokes for the 
Tandy 100/102 which would add 
line feeds when printing out a file 
thus eliminating the need to change 
any switches on your printer. (POKE 
64228,127:POKE 64229,248 was sup- 
posed to turn it on and POKE 
64228,243:POKE64229,127 would 
turn it off.) All it did was lock up my 
computer and I had to turn off power 
to the memory to get it started again. 
I would appreciate it if you could tell 
me what went wrong or what the 
correct POKES should be. I would 
also be interested in knowing if there 


isa book available, beside the Techni- | 


cal Reference showing addresses to 
PEEK, POKE and CALL. 

David Riegert 

Sparks, NV 


Paul was wrong. He apparently hada | 


linefeed routine in RAM at location 
63615 that automatically inserted line- 
feeds with carriage-returns, and forgot 
about it . Hence his suggestion. Without 
that routine in place your computer 
simply locks up. Try the routine in figure 
three (or figure four if you have a 200). 
These programs set HIMEM toeleven 
bytes (nine on the 200) less than 
MAXRAM and load the linefeed routine 
into those locations. If you want to use a 
machine-language program that changes 
the HIMEM value and loads over the 
linefeed routine, then you must rerun 


this program and disable the linefeed rou- , 


tine. When disabled, the normal 100/200 
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print routine operates (that is, no line- 
feeds). Otherwise your computer will 
reset fo 1900 when you try to print and 
| the print routine tries to excute the now 
non-existent linefeed routine. 

Eds 


AN 800 NUMBER FOR THE BBS? 





com has been modified to suit the 
Australian voltages. 

How can I upload files direct (RS 
232) to a P.C.? 

Is the disk drive unit compatible 
with any other Tandy machine? 

Can I expand the memory? 

Why won't Scripsit save to disk? 





"uon 


should indicate or ground, or 
body, and not ”-12V”. The diode D1 | 
should not be optional as it provides 
protection against accidentally using 
the adapter in a car with reverse bat- 
tery polarity connections. 

Have enjoyed Portable 100 in the 
past and am pleased to see it back | 





I have just received my | ——31s 
February issue of Portable n 
100. It is one of the maga- 40 


zines I subscribe to that I 60 
especially look forward to 
receiving. 

In your Rom With A 
View, you mention the 





"iptif -- add line feeds to lpt 
'copyright 1983 


Michael M Rubenstein 


P=PEEK(64228)+256*PEEK(64229) 
50 IF P=32755 THEN 100 
PRINT "LPTLF enabled. 


Disable? "; 


70 C$=INPUT$(1):PRINT C$;:IF C$="y" OR C$="Y" THEN 
POKE64228,243: POKE 64229,127: CLEAR 256,MAXRAM 
80 MENU 

100 CLEAR 256,MAXRAM-11: P=INT(HIMEM/256): 
POKE 64228,HIMEM-256*P: P=HIMEM 

110 READ B: IF B>=0 THEN POKE P,B: P-P*1: GOTO 110 
120 MENU 
150 DATA 254,13,192,62,10,205,63,109,62,13,201,-1 


POKE 64229,P: 


; again. 
Sam Lewbel 
Sun City, AZ 


CLEVER RUDY 
KOKICH 

I'd like to congratulate 
Rudy Kokich as on his 








PBBS system you have set 
up. I would like to access this bulletin 
board at times but I fear my wife 
would not appreciate the telephone 
company costs. Is there any chance 
thatin the near future you will havea 
toll-free, 800 number? 
Joseph C. Strolin 
Norwalk, CT 
An 800 line to our BBS would cost 
over a thousand dollars a month, which is 
ahuge expense. The only way we could do 
this would be to charge people for access 
| to our BBS. Do y'all think that's a good 
idea? 
Eds 


COMPLETE LISTING 

OF ALL SOFTWARE? 
Are there any companies that you 
can write to to receive a complete or 
| close to complete listing of all soft- 





Figure 3. Add linefeeds to your carriage-returns 
when printing from your Tandy 100. 


Robert Ripley 
Endeavour Hills, Victoria 
The Disk/Video drive unit works with 
the Tandy 100 and 200. Scripsit 100 
wasn't designed to work with the PDD. 
As for uploading files direct: Get an RS- 
232 null-modem, plug it into the P.C. 
Use TELCOM on the Tandy 100 and any 
communication's software on the P.C. 
For memory Expansion, check the 
advertisements from Traveling Soft- 
ware, Purple Computing, and Sound- 
Sight. 
Eds 


CRUISIN WITH 12 VOLTS 
Just finished reading the timely 


| article Cruisin’ with the Model 100 by 





= excellent CALC-I pro- 


gram that appeared in the February 


1988 issue of Portable 100, and ap- 
plaud your editorial decision to print 
it. This is exactly the kind of software | 
one hopes to find for the 100: useful, 


| compact, user-friendly and cleverly 


done. It will be a permanent addition 
to my 102. | 

Because I use UltraScreen I | 
thought I’d pass along a tip that is 
useful with programs that use the 
BASIC PRINT@ command to format 
the screen, as CALC-I does. 

Because the PRINTE command 
counts characters from left to right 
from the upper left had corner, its 
fairly easy to modify any program to 
work correctly whether or not 
Ultrascreen's 60X10 mode is active. 
Here's how to do it: 

1. Replace the numbers in all 





ware available for the Model | 
100. 








PRINT@’s in the program | 
with variable names. Use a 








acolumn on both subjects soon. 
Eds 

AUSTRAILAN PROBLEMS 
I have a Model 100 (32K) with 
Disk/Video interface, Scripsit 100 
Disk Data Manager System. Portable 
Computing with the Model 100 Tel- 








yet. We're probably going to be running | 





Figure 4. Add linefeeds to your carriage- 
returns when printing from your Tandy 200. 


Ralph Tenny. The diagram in figure 1 
contains a very common error. As 


| shown it appears that one needs a 24 


volt supply. Obviously, Mr. Tenny is 
using a car with a 12 volt supply. 
Therefore, the lower connection 





10 DATA 254, 13,192, 205,201, 132,62,10,201 
1 1 EAR HIMEM-9: AD - : . 
I wasalso wondering if there 30 FOR 158,70 à READ D: > áo c mone dno different variable zs for 
i 40, INT(AD/256) i 
| are any Bulletin Boards that | — 35 Poke 62790 mar Ads 2740) 0256 each different @ number, and 
| you can hook up to for the £0 "e "Line Feed Patch ders =";AD pick variable names that are 
ne Feed Patch For TANDY 1 i 
Model 100. 71 /By Jim Irwin - 72346,1020 not already in use in the pro- 
i DISAB : B 
Gary Jeppesen 79 "POKER 62739.168 gram. For instance, if the pro- 
Shelby, MT SD "TO 627407156 gram contained four 
Nope, noone-source for all that, T PRINT@’s: 


PRINT@280,,...:PRINT@280.... 

you could change these lines to: 
PRINT@0.....:PRINT@P1,.. 
PRINT@P7,..:.PRINT@P7,... 
assuming P1 and P7 are not al- 
ready used in the program. Obvi- 
ously, there is no need to change a 
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| program using PRINTO's will 





PRINT2, as this screen location is 
the same upper left hand corner 
position on either screen. 

2. Having made all the PRINTO's 
refer to variables, add a line of 
code at the beginning of the pro- 
gram to set the correct values into 
the new variables. The general 
formula for the new variables is: 
PN=LL(40+PEEK(63032)*20)+PP 
where LL isthe line position on the 
eight line screen, (0 to 7), and PP is 
the character position on the line(0 
to 39). In the example above, the 
line of code would read: 
P1=(40+PEEK(63032)*20) 
:p7=7*(40+PEEK(63032)*(20) 
or more compactly: 
P1=(40+PEEK(63032)*20):P7=7*P1 
Because memory location 63032 

contains the screen mode, a 0 





siderations: (1) There is no number of 


seconds that divides into 300 at rec- 
ord player speeds and gives an accu- 
rate reading of RPM except 33 1/3, 
but: (2) The time, as givenin BASIC, is 
an integer number to the nearest sec- 
ond only. I said I was not a Math 
whiz! I’m sure that we will hear from 
the whizzes out there. 

However, I am including with this 
a simple BASIC program, that gives 
results within plus or minus one 
revolution. The program counts bar 
passings of 60 seconds and then 
prints RPMs. The paper on the turn- 
table should have a single, black 
radial line. I fasten the wand to the 


| non-revolving spindle in the center 
of my turntable. A minute is a long 


time to hold the wand against the 





A list of all programs available can 
be had by sending an SASE to: 
A.R.R.L 
Dept PX 
225 Main Street 
Newington, CT 06111 
Currently there are about 49 pro- 
grams available, about six for the 
Model 100. These programs have to 
do with Amateur Radio, antennas 
and electrical. 
Joseph C. Strolin 
Norwalk, Ct.5 


MORE PROGRAMS 
I was very disturbed by Louise 


Legeza’s letter in the I/O section of | 


your February issue, and felt I had to 
write to express my views. 
To begin with, I want more pro- 





0 CLS 
for the normal 8x40 screen, ora 9 ER, 16050 

2 Go 
1 for the 10x60 SERS, the 3 ' "TACH2.BA" BY: Frank W. Schrader,February, 1988 
above lines toggle the line |5 TIMEs="00:00:00" 


length between 40 and 60, and a 


give a correct displaying either 
mode. The display screen in 
10x60 mode will be located in 
the upper left corner of the dis- 
play, however, and will still 


510 





10 IF 8 ru INP(187> THEN GOTO 6:GOTO 


6 IF TIME$>="00:01:00"THEN PRINT@ 170,C:PRINT@ 180,"RPM":GOTO 2 


100 ELSE 100 


100 IF TINE8900101:00^ THEN PRINT@170,C:PRINT@ 180,"RPM'":GOTO 2 
110 BEEP | 


,500 BECO CCCI AAAI IK 
KKK 
520 ^"kxock 


TO REINSTATE SCROLLING, WHILE 
IN BASIC, TYPE CALL 16964, HIT ENTER 


530 "kkk OR TURN THE COMPUTER OFF AND THEN ON AGAIN. xxx | 
(540 OI AIR AIR AAA HAA AA KAR AAR AAR KARR AA AA AR AHA AR RK, 


grams, not fewer. Good pro- 
grams are the reason I buy 
your magazine. Reviews have 
a place, too, but don’t take 
space away from program- 
ming articles to include them. 
The February review of Ul- 
trascreen was good and I look 
forward to some of the other 
reviews you have planned, 
but one a month is enough. 


X*xxx* 
xc 








only use forty character posi- 


| tions per line. 


Mike Aiello 

Croton-on-Hudson, NY 

Thanks very much Mike for your 
advice and tips. 

Eds 


WE HAVE BUGS IN OUR BAR- 
CODE 

In your February 1988 issue of 
PORTABLE 100, you were kind 
enough to publish my article Using 
the Model 100 Barcode Reader as a Ta- 
chometer/Counter. It was not until 
publication that I discovered a bug in 
the programs. My reasoning in writ- 
ing the programs presented, was that 
probably few readers with a Model 


100 and bar code reader would have 


machine tools in their shop. This led 
to programs that give answers witha 


| high percentage of error at record 


player speeds. This is due to two con- 





Figure 4 Coneciionss to T. ACH. BA from 
the February 1988 issue. 


paper. If greater accuracy is re- 
quired, it probably would be a 
good idea to buy a cheap tachome- 
ter, unless, of course, you just want 
to fool around with new uses for 
the bar code wand and the Model 
100. 
Frank W. Schrader 
Sarasota, FL 
Thanks for the update. Sorry about 
any inconvenience folks. See figure five 
for the updated program. 
Eds 


PROGRAMS FROM THE 
AMERICAN RADIO RELAY 
LEAGUE 

Of interest to some of your sub- 
scribers might be the free programs 
offered by the American Radio 


| Relay League for the Model 100. 





I don't need or want tutori- | 


als on how to use the built-in Model 


100 software. I can't understand how 


Ms. Legeza can call the Model 100 


manual lousy. It is quite clear and 
does indeed have step-by-step in- 
structions on how to use the various 
applications. Both SCHDL and AD- 


. DRESS have sample sessions that 


guide you through the programs in a 
logical manner. Don't use your pages 
to simply re-iterate information that 


| can be found in the manual. 


Which brings me to the types of | 


articles and programs I want to see. If 
anything, I want more technical in- 
formation, written by people who 


| know what they are doing. The best 


articles are those that are written by 
someone who has solved a real-world 


| problem with his Model 100 and is 


willing to share the information. 
For example, Dr. Kokich's article 


| onusing the computer as a calculator 
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was very good. He wrote a very use- 
ful program and by publishing it has 
given the rest of us a new tool. Now 
that I have entered the program I can 
do things with my Model 100 that I 
couldn't do before. That's what I 
want from your magazine. 

The same applies to Frank 
Schrader's tachometer article. I 
didn't know I could do that. But now 
| my computer is more valuable to me. 

On the other hand, Richard 
Dickson’s article on typefaces was a 
complete waste of space. You can 
sum up the article in a single sen- 
tence: “Use the commands found in 
your manual to change typefaces on 
your printer.” There was nothing 
new here. You can get exactly the 
same information simply by reading 
the manual. 

I think that is the key to making 
progress with any piece of computer 
equipment: Read the blasted manual. 
Some of them are less than entirely 
lucid, but if something isn’t clear try 
it. Experiment. You’re not gong to 
hurt anything by playing around at 
the keyboard. Hands-on experience 
is the best way to learn. 

I don’t have any problem with 
your authors writing over my head. 
| Most of the time I understand exactly 
what they're saying, and if not, a few 
minutes spent playing around with 
the program makes it clear. An au- 
thor writing for a publication such as 
yours has to assume a certainamount 
of competence on the part of his read- 
ers. It would be wasteful and foolish 
to define standard terms such as de- 
fault and ASCII in every article. Most 
of us know what those mean. Those 
who don't can easily find out. Any 
public library has a large number of 
| computer books that will guide the 
novice toward a firm grounding in 
the technical aspects of computers. 

And make no mistake, computers 
are technical. You have to make an 
effort to understand at least the rudi- 
ments of their operation or you will 
never get anywhere. Even just get- 
ting a program into the computer 
requires some knowledge of how the 
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things work. 

Don’t lower the standards of your 
articles just because not everyone 
understands them. I don’t under- 
stand everything either, but if it is 
something I’ m interested in, I’ll do 
my best to figure it out. Knowledge is 
synergistic. It isn’t necessary for ev- 
ery article to be completely self-con- 
tained. Bits and pieces of information 
from many sources build upa picture 
of expanding awareness. 

Ms. Legeza seems to acquaint 
technical terms with gobbledy-gook . 
That just isn’t true. It is simply the 
language of writing about comput- 
ers. Mathematicians explain things 
in terms of mathematical symbols; 
lawyers use legal terms, and econo- 
mists deal with supply and demand 
curves, point elasticity, and marginal 
tax rates. Authors who write for 
computer magazines use technical 
computer terms. There is absolutely 
nothing wrong with that. 

Of course, if you can’t understand 
the language you are going to be 
confused and frustrated, but that 
isn’t the writer’s fault. The reader 
who can’t understand what is being 
said needs to do his/her homework. 
Read the manuals, check out com- 
puter books from the library, and ex- 
periment with hands-on experience. 

Some magazines have a Beginner's 
Forum that tries to introduce new 
users to the computer, but this is 
somewhat futile. There are always 
going to be novices coming into the 
field and unless you keep covering 
the same information over and over 
again, someone is going to complain 
that you aren't dealing with the ba- 
sics. You would serve your readers 
better by directing them to 
beginner's books about the Model 
100 (there are several of them) so that 
they can learn what they need to to 
get the most out of your articles. 

You might also consider a 
Consultant's Corner. Instead of taking 
space to publish articles that cover 
rudimentary aspects of the Model 
100, use a column or two to publish 
names and addresses of readers who 





are willing to help novices learn the | 
ropes. If you also included each 
person's area of expertise or interest, 
even experienced users would havea 
resource to turn to if they need help. 

I'd be more than happy to add my 
name to such a list. I love my Model 
100 and enjoy sharing what I know. 
l've written magazine articles before 
and anyone who sends me a question 
with a SASE gets a reply. I enjoy 
answering mail and often times I 
learn something as well. 

This has been a long letter, but let 
me summarize my points. 

First, I want more programs. I 
want articles that teach me how to do 
something with my Model 100 that I 
didn't know how to do before. Don't 
publish information that can be read- 
ily found in the manuals. Let's have 
articles that push the computer be- 
yond the built-in applications. 

Next, don't worry about being too 
technical. The articles need to beclear | 
and concise, but if they are technical, 
so be it. I don't want articles written 
by elementary teachers. I want ar- 
ticles written by authors that thor- 
oughly understand their material. 

Finally, don't gear your magazine | 
toward novices. Don't ignore them, 
of course, but keep your focus on 
more advanced techniques and pro- 
grams, things that can't be found 
elsewhere. 

Of course, you can't please every- 
body. If you publish this letter there 
are certain to be readers who dis- 
agree with my views justas I disagree 
with Ms. Legeza. Iam not insensitive 
to problems like hers, but I don't 
want a magazine that simply re- | 
writes the manuals or is devoted to 
teaching the rudiments of my Tandy. 

Ibuy your magazine to learn, to be 
challenged, to make my machine do 
what it couldn't do before. That 
means programs and technical ar- 
ticles. And if it means I have to work 
and stretch my understanding, so | 
much the better. I’m willing to do 
that. 

Michael A. Wilson 
California, MD 
- 
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The Slot Machine Game 


Play the slots without the expense of a Las Vegas 
or Atlantic City trip! 


by Ralph Sherman 











he slot machine probably is the most profitable 

type of game operated by gambling casinos. An 

individual slot machine requires relatively 
little overhead and maintenance, takes a negligible 
amount of floor space, is on duty 24 hours a day and never 
asks for a pay raise. Yet slots take in millions of dollars a 
year, with much of the total coming from people who play 
for hours without a break. 

There is a way, however, to play a slot machine all day 
without spending a cent. That way is SLOT.BA, a true-to- 
life simulation of an actual three-reel slot machine called 
the Twenty-One Bell. 


THE TRUTH ABOUT SLOT MACHINES 

Many people who have never played the slots believe 
that the machines are designed to take a player's money as 
quickly as is mechanically possible, and to keep most of 
| the money that they receive. While that's the way that 
many illegalslots work, the truth is quite different for legal 
machines in legal casinos that must compete with each 
other for customers. 

The Twenty-One Bell is a case in point. Although the 
machine is undoubtedly profitable for the casinos, in the 
long run it pays out 94.45 percent of its gross income. 
Further, with 8,000 combinations of symbols possible on 
the machine, and 1,073 combinations that win, a player on 
average will receive some payout 13.4 percent of the time. 


MORE COMPLEX THAN THEY APPEAR 

Another common misconception about slots pertains 
to the reels that spin and display pictures of fruit or other 
symbols. The Twenty-One Bell has eight different sym- 
bols, and many people believe incorrectly that each reel 
therefore has eight points at which it can stop. 








1 ' SLOT.BA by Ralph Sherman (73720,3433 
] 

2 ' created 11/13/87 - revised 12/64/87 
208 CLS:CALL16959:PRINT@134,"Sound (y/n 
jor 

25 SO$=INKEYS:IFSOS$<>"y"ANDSOS<>"n"THENA 
=RND (1) :GOTO25 

3Ø CLS:DEFINTA:DIMYS (3) ,W$ (3,20) :ES$=CHR 
$ (27) :WBS=ES$+"p": BWS=ESS$+"q":ARS=CHRS (1 
54) :TS="SLOT” :ALS=CHR$ (155) :B1=2Ø:LS=2Ø 
32 LINE (99,21)-(145,33) ,1,B:LINE(97,19)- 
(147,35) ,1,B:LINE(96,18)-(148,36) , 1,B 

34 LINE(1190,22)- (1190,32) :LINE(122,22)- (1 
22,32) :LINE (134,22) - (134,32) 

36 FORX-1TO4:PRINT8135*2*X,MIDS (T$,X,1) : 
IFSOS$-"y"THENSOUNDÓ,1 

38 NEXTX:PRINTG253, "by Ralph Sherman" 

49 GOSUB55@ 

48 ' 

49 ' get characters for the reels 

59 X$=CHR$ (55) +CHR$ (36) *CHR$ (157) +CHR$ (1 
28) +CHRS (134) *CHR$ (158) +CHRS (180) +CHR$ (4 
2) 

55 FORX=1T03:FORX1=1T02Ø:READN:W$ (X,X1) = 
CHR$ (N) :NEXTX1:NEXTX 

58 ' 

59 ' draw the machine 

69 CLS:LINE(9,21)- (43,33) , 1, B: LINE(20,22 
)- (20,32) :LINE (32,22) - (32,32) : LINE (7,19) 
-(45,35) ,1,B 

65 LINE(6,18)-(46,36) , 1, B:LINE(4,16)- (48 
163), 1, B: PRESET (4,16) : PRESET (48,16) 

70 LINE(34,15)- (34,11) :LINE(34,11) - (36,9 
) sLINE (36,9) - (39,9) :LINE(39,9)- (41,11) :L 
INE (41,11)-(41,15) 

75 PSET (37,14) :PSET (36,13) :PSET (36,12) :P 
SET (37,11) :PSET (38,11) :PSET (39,12) :PSET ( 





continued 
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In fact, the Twenty-One Bell is typical in that each reel 
has 20 stopping places—and the reels are not identical. 
The first two reels, for example, have more of the higher- 
paying symbols and none of the lemons, which are worth- 
less; on the third reel, however, five of the 20 stops are 
lemons. Thus the reels often will appear to stop just short 
of a winning combination—for example, with matching 
plums on the first two reels and a lemon on the third. 

Of course this design has the psychological effect of keep- 
ing a player interested in spending more money on the 
game. 

The same effect is achieved by allowing the player, on 
average, to win something about every seven or eight 
times that he pulls the handle. Although the probability of 
winning a big payout is very small, the player’s money 
doesn't simply disappear in a steady stream of silver 
dollars. Rather, the player’s balance usually drops for a 
few plays, then rises slightly, drops for a few more plays, 
rises again, and so on. Smart players quit when they win 
big; others play until they’re broke. 


THE MODEL 100 SIMULATION 

SLOT.BA differs from the real Twenty-One Bell ma- 
chine in only two ways. First, because the Model 100 
character set does not include symbols like plums, cher- 
ries and melons, SLOT.BA uses a different set of symbols. 
These are substituted directly for the symbols in the 
Twenty-One Bell as shown in Table 1. Second, at seven 
stops on the three reels of the Twenty-One Bell there are 
double symbols that would be impossible to present ele- 
gantly on the Model 100. For example, Stop 12 on Reel 2 
shows both a melon and an orange; if Reel 2 stops at this 
point, the Twenty-One Bell counts the more advantageous 
symbol in determining the payout. Thatis, if the other two 
reels stop at melons, Reel 2 will count as a melon, too; if the 
other reels stop at oranges, Reel 2 will count as an orange. 

When a reel stops at a double symbol in SLOT.BA, the 
program displays the symbol that is more advantageous 
to the player, or, if neither symbol would yield a winning 
combination, the program chooses one symbol or the 
other at random. A slight exception to this is Stop 8 on Reel 














| 39, 


77 
80 
83 
84 


| 85 


WES 
99 
(13 
(77 
OSU 
95 
98 
99 
ls 
1ØØ 
EN3 
RND 
11Ø 
FAS 
12Ø 
1,4 
ZT: 
13Ø 
518 
519 
52Ø 
39) 
29) 
21) 
522 
525 
528 
529 
530 
2943 
jf 


| 252 


535 
6," 
549 
39) 
55) 
5Ø) 
542 


13) :PSET (38,14) 
FORX=1TO3:PRINTG12Ø+2*X,"7":NEXTX 
GOSUB58Ø 


' draw the tally box 
LINE(4,38)-(48,38) :GOSUB520 : PRINTG15, 
P"TALLY";BWS:LINE(89,8)-(89,7) 
LINE(76,14)-(132,63) ,1, B:LINE (76,63) - 
2,63) ,Ø:PSET (76,63) :PSET (132,63) : LINE 
oL3) = (133,13) LINS (133,14)-(133,62) :G 
B6090 | 
GOSUB21ØØ:GOSUBS8Ø 


' wait for <ENTER>, then spin the ree 
GOSUB2137: IFB=ØTHEN1ØØØELSEIFB>SØØTH 
ØØØELSECØ=Ø:AS=INKEYS:IFAS<>""THENDU= 
(1) :GOTOLØØ 
AS-INKEYS:IFAS-CHR$(13)THEN1190ELSEI 
-ESSTHENMENU 
CØ=CØ+1:DU=RND (1) : IFCØ>2ØØTHENLINE (1 
7)- (41,55) ,1,BF:CØ=Ø:FORZT=1T02Ø:NEXT 
GOSUB58Ø 

GOTO119 


' put the handle up 

LINE (49,36)-(50,36) : LINE(49,39)- (52, 
LINE (51,36)- (51,20) :LINE(53,38)- (53, 
:LINE (53,20) - (51,20) :LINE (52,25) - (52, 


IFSOS="y"THENSOUND2799@ , 2 

RETURN 

' pull the handle down 

LINE (49,36)-(59,36) ,@: LINE (49,39) - (5 
9) ,Ø:LINE(51,36)-(51,2Ø) , 89: LINE(53,38 | | 
53,20) ,Ø:LINE(53,2Ø)-(51,2Ø) ,@:LINE(5 
5)-(52,21) ,@ 

PRINTG122," ":PRINT@124," 
"sLINE(11,47)-(41,55) ,1,BF 
LINE (49,36)-(52,36) :LINE(49,39)- (50, 
:LINE (51,39) -(51,55) :LINE(51,55)-(53, 
:LINE (53,55) =- (53737) :LINE(52,54)-(52, 


":PRINTG12 


LINE (37,12)-(38,13) , 9, B: IFSOS-"y"THE 


NSOUND36ØØ,2 


| 544 


GOSUB55Ø 


continued 














n 
D 
& 
da 
e 
t 
TY 





Table 1. The display on the Tandy 100/102, and the symbols used in place of the more traditional lemon, plum, cherries, and so forth. 
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me 


545 LINE(49,36)-(52,36) ,Ø:LINE (49,39) -(5 
Ø,39) ,Ø:LINE(51,39)-(51,55) ,Ø:LINE (51,55 
) = (53,55) ,Ø:LINE (53,55) = (53,37) , B: LINE (5 
2,54)-(52,59) ,8:GOSUB520 : RETURN 

548 ' 

549 ' pauses - long and short 

550 FORZT=1TO3ØØ:NEXTZT:RETURN 

555 FORZT-1TO60:NEXTZT: RETURN 

S78 " 

579 ' print logo on machine 

580 LINE(11,47)-(41,55) ,1,BF:IFFØ=ØOR(B= 
ØANDB1=Ø) THENFØ=1 : RETURNELSEPRINTG242,VB 
S3 "PLAY L" BWS 

585 IFSO$="y"THENSOUNDSØØØ, 1:SOUND47ØØ,1 
590 RETURN 

598 ' 

599 ' display the tally 

600 PRINT@93, "Now" 

61Ø FORS=BTOB1STEP (B1-B)/ABS(W1-B):PRINT 
@97,"";:PRINTUSING"SS###";S:IFSOS="y"THE 
NSOUND@,1 

620 NEXTS:B-B1 

630 IFB>HSTHENHS=B 

640 IFB<LSTHENLS=B 

650 PRINT@173,"High"; :PRINTUSING"SS#R#"; 


660 PRINT@213,"Low ";:PRINTUSING"SS###"; 
670 PRINT@293,"Plays ";:PRINTUSING"###"; 


68Ø RETURN 

998 ' 

999 ' if Balance = (f... 

1090 PRINT@12,WBS;" GAME OVER ";BWS 

1910 FORX=1TO3:PRINTQG12Ø+2*X,"X":NEXTX 
1020 LINE(11,47)-(41,55),1,BF 

1030 IFSO$="y"THENFORX=5ØØØTO16ØØØSTEP3Ø 
0: SOUNDX,2:NEXTX 

1040 IFINKEYS<>""THEN1Ø4Ø 

10590 AS=INKEYS: IFAS=ESSTHENMENU 

196% IFAS-CHR$(13)THENB-0:F0-90:B1-20:HS- 
2Ø:LS5=2Ø:P9=Ø:GOTO6Ø 

1Ø7Ø DU=RND(1) :GOTO1959 

1998 ' 

1999 ' spin the reels 

119% LINE(37,12)-(38,13),1,B:GOSUB555:B1 
=B-1:P9=P9+1:GOSUB6ØØ:GOSUB53Ø:59=47ØØ 
1119 FORN2=1T03:I=RND (1) *2Ø+1:J=RND(1)*2 
Ø+1:K=RND (1) *2Ø+1 

1120 FORN1-1TOVAL (RIGHTS (TIMES,1))+7+3*R 
ND (1) : IFN2>1THEN1135ELSEI=I+1:IFI>2ØTHEN 
I=1 

113Ø PRINTQG122,W$(1,I) :IFSOS="y"THENSOUN 
DS9,1 

1135 IFN2>2THENLL45ELSEJ=J+1:IFJ>2ØTHENJ 
=1 

114% PRINT@124,WS (2,7) : IFSOS$-"y"THENSOUN 
DS9,1 

1145 K=K+1:IFK>2ØTHENK=1 

1150 IFK<>15THENPRINT@126,WS (3,K) 

1153 IFK=15THENPRINT@126,MIDS ("7$",RND(1 
) *2+1, 2) 

1157 IFSO$="y"THENSOUNDS9,L 








116Ø NEXTN1 

1178 ONN2GOSUB12ØØ,13ØØ,14ØØ 

1195 S9=59-13ØØ:NEXTN2:GOTOLSØØ 

1200 A=RND(1)*26+1: IPFA<>8THENYS (1) =WS (1, 
A) ELSEYS (1) ="?" 

1205 PRINT@122,WBS;YS$(1);BWS 

1210 IFSOS$S="y"THENSOUNDØ,1:SOUND8ØØØ,1:S 

OUND1ØØØØ , 1: SOUNDØ , LELSEGOSUB555 

1220 IFYS(1)<>"?"THENPRINT@122,YS (1) 
1230 RETURN 

1300 A=RND(1)*2Ø+1 

1395 N$=Y$ (1) 

131Ø Y$(2)=W$(2,A):IFY$(1)="?"THENN$=MID 
$ (CHRS (128) *CHR$ (36) , RND(1) *2+1,1) 

1313 IFYS(1)="?"AND ( Y$(2)-CHR$(128) OR 
YS (2)=CHRS (36) ) THENNS=YS (2) 

1315 YS(1)=N$:PRINTG122,Y$(1) 

(20 IFA=4AND( Y$(1)=CHR$(55) OR Y$(1)=C 
HRS (158) ) THENYS (2) =YS (1) ELSEIFA=4THENY 
$ (2) =MIDS (CHRS (55) *CHR$ (158) ,RND (1) *2+1, 
1) 

1325 IFA=7AND( Y$(1)=CHR$ (134) OR Y$(1)= 

CHR$ (36) ) THENYS (2)=Y$(1)ELSEIFA=7THENY 
$(2)=MID$ (CHRS (134) *CHR$ (36) ,RND(1)*2+1, 


is) 

1339 IF(A-120RA-20)AND( Y$(1)=CHR$ (157) 
OR YS(1)=CHR$ (158) ) THENYS (2) : YS (1) ELSE 
IF(A=120RA=2Ø) THENYS (2) =MIDS (CHR$ (157) *C 
HRS$ (158) ,RND(1) *2+1,1) 

1340 PRINT@124,WBS;YS(2);BWS 

1350 IFSOS="y"THENSOUNDØ,1:SOUNDSØØØ,1:S 
OUND1ØØØØ , 1: SOUNDØ, 19LSEGOSUBS555 

1360 PRINT@124,Y$(2) : RETURN 

149% A=RND(1)*2Ø+1 

141Ø Y$(3)-W$(3,A) 

1420 IFA<>15THEN143Ø 

1425 IFYS(2)=CHRS (55) ORYS (2) =CHRS (36) THE 
NYS (3) =YS (2) ELSEIFYS (1) x YS (2) THENYS (3) =C 
HRS (36) ELSEYS (3) =MIDS$ (CHR$ (55) +CHR$ (36), 
RND(1)*2+1,1) 

143Ø IFA<>18THEN1446 

1435 IFYS(2)=CHRS (157) ORYS (2) =CHRS (158) T 
HENYS (3) =YS (2) ELSEYS (3) =MIDS$ (CHR$ (157) +C 
HRS (158) ,RND (1) *2+1,1) 

144Ø PRINT@126,WBS;YS (3) ; BWS 

1459 IFSO$="y"THENSOUNDØ,1:SOUNDS8ØØØ,1:S 
OUND1ØØØØ , 1: SOUNDØ , LELSEGOSUB555 

1460 PRINT@126,YS$ (3) : RETURN 

1498 ' 

1499 ' check for winning combinations 
1500 GOSUB55Ø:ONINSTR(X$,YS(1))GOTO3ØØØ, 
3020,3040,3060,3080,3100,3129 

2098 ' 

2009 ' characters for Reel 1 

2010 DATA158,157,134,180,134,158,55,128, 
158,180,36,134,158,134,157,134,158,134,3 
6,134 

2018 ' 

2019 ' characters for Reel 2 

2020 DATA18Ø,134,18Ø,55,18Ø,128,134,128, 
189,158,128,157,134,128,189,36,158,180,1 
28,157 

2028 ' 

2029 ' characters for Reel 3 

2030 DATA128,158,134,128,158,42,128,42,1, 


Co! 





continued 
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1, which appears as a question mark until Reel 2 stops 
spinning; before Reel 2 stops, the program cannot deter- 
mine which symbol on Reel 1 would be advantageous. 

Otherwise, the winning combinations, the payouts, 
and the sequence of symbols on the reels is simulated 
faithfully by SLOT.BA. 


HOW TO PLAY 

When you run SLOT.BA, the program asks you 
whether you want the game to be accompanied by sound 
effects. After you press y or n (lower case), the screen clears 
and displays the title of the program. The screen clears 
again after a few seconds. 

The program next drawsa slot machine at the left of the 
screen, a tally box near the center of the screen, and a 
payout table at the right. If you asked for sound effects, 
you'll hear them begin as the slot machine is drawn. 

The tally box shows, from top to bottom, your current 
balance (Now), your highest balance during this game 
(High’), your lowest balance during this game (Low), and 
the number of times you have pulled the handle (Plays). 
The program always gives you a starting balance of $20; to 
determine how much money you have won during a 
game, add your Now balance to the number of plays, and 
| subtract 20. 





The program always gives 
you a starting balance of $20 





To pull the handle, press ENTER. A coin will be shown 
entering the slot at the top of the machine; your Now 
balance will decrease by $1; your Low figure may decrease, 
too; and the number of Plays will increase by one. 

The reels will appear to spin for a short time and then 
stop, flashing in reverse video for an instant before each 
reel comes to rest. If a non-winning combination is shown, 
the logo box on the machine will say SORRY!, and a low 
tone will be sounded if you have asked for sound effects. 
The logo box will then change to urge you to PLAY! 
another dollar. 

If a winning combination is shown, the logo box will 
| say U WIN, and arrows will appear in the payout table to 
point out the winning combination and the payout 
amount. Figures in the tally box will change accordingly, 
and a musical announcement will be sounded if you asked 
for sound effects. 

As is indicated in the right-hand border of the payout 
table, the dollar sign ($) counts as a wild card. Specifically, 
a dollar sign on Reel 3 with a pair of hearts, gifts, tele- 














28,134,42,128,134,128,55,42,128,157,128, 


42 
2098 ' 


2099 ' display the payout table 
2100 PRINT@27,WBS;" ";BWS;" ";CHRS$S(18Ø); 


n rs 2 ";WBS;" " 


2105 PRINTG67,"P":BWS;" "sCHRS(180) 7" "z | 


CHRS (18Ø);" = 5 "SWBST'"S" 
| 2110 PRINTQG1Ø7,"A";BW$;" ";CHR$(158);" " 


;CHR$(158);" ";CHR$(158);" 
;CHR$ (134) ;" ";CHRS$(134);" 
;CHR$ (128);" ";CHR$ (128) ;" 
;CHR$ (157) 7" ";CHRS(157);" 


2130 PRINT@267,"T";BWS;" $ 
s"D": 


33,63) 
2140 RETURN 
2996 ' 





2998 ' 
2999 ' three sevens? 


2120 PRINT@187,"0";BWS;" "; 


|2125 PRINT6227,"U";BW$;" "; 


19 "SWBS;" " 


2115 PRINT@147,"Y";BWS;" “;CHRS(134);" " 


14 "SWB$;"W" 
CHR$(128);" " 
18 ";WBS$;"I" 
CHRS(157)," T 
100 ";WBS;"L" 
$ $ 109 ";WBS 


2135 PRINTG307," ";BWS;" 7 7 7 2900 ";WBS 


2137 LINE(161,Ø)-(161,63) : LINE(233,40) - (2 


2997 ' check for winning combinations 


3000 IFYS(2)<>CHRS (55) ORYS (3) <>CHR$ (55) T 


HENGOTO50499 


3010 N9=3Ø8:GOSUB4ØØØ : GOSUB60900 : GOSUB900 


Ø 


3015 B1l=B+2ØØ:GOSUB6ØØ:GOSUBS8Ø:GOT04Ø2Ø 


3918 


3919 ' three dollar signs? 


3020 IFYS (2) <>CHRS (36) ORYS (3) <>CHRS (36) T 


HENGOTOSØØØ 


3Ø3Ø N9=268:GOSUB4ØØØ:GOSUBG6ØØØ:GOSUBIØØ |. 


Ø 


| 2035 B1=B+1ØØ:GOSUB6ØØ:GOSUBS8Ø:GOTO4Ø2Ø 


3038 
3039 ' three diamonds? 


3040 IFYS$(2)«»Y$ (1) THENGOTOSØØØ 
3045 IFYS (3)<>YS$ (1) ANDYS (3) <>CHRS (36) THE 


NGOTO5ØØØ 


3059 N9=228:GOSUB4ØØØ:GOSUB6ØØØ:GOSUBIØØ | 


g 


3Ø55 B1-B*1090:GOSUB600:GOSUB580:GOTO4920 


3958 
3959 ' three telephones? 


NGOTO5ØØØ 

| 3670 N9=188:GOSUB4ØØØ 
3075 B1=B1+18:GOT04919 
3078 ' 

3079 ' three gifts? 


NGOTO5ØØØ 


3998 ' 
3999 ' three hearts? 





30690 IFYS (2) <>YS$ (1) THENGOTO5ØØØ 
3965 IFYS(3)<>Y$ (1) ANDYS (3) <>CHRS (36) THE 


398% IFYS(2)<>YS (1) THENGOTOSØØØ 
3085 IFYS(3)<>YS(1)ANDYS (3) <>CHRS (36) THE 


3099 N9=148:GOSUB4ØØØ:B1=B+14:GOTO4Ø1Ø 


3190 IFYS(2)<>YS (1) THENGOTOSØØØ 
3185 IFYS (3) <>YS$ (1) ANDYS (3) <>CHRS (36) THE 


continued 
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phones or diamonds on Reels 1 and 2 gives you three of a 
kind. The dollar sign does not count as a wild card on Reels 
1 and 2, however. This wild-card system duplicates the 
action of the real Twenty-One Bell machine and many 
other slots, which count a gold bar on the last reel as a wild 
card. 

If you play until your Now balance is zero, SLOT.BA 
will tell you that the game is over. At this point, pressing 
ENTER will clear the screen and start a new game with $20 
for you to spend. If you press ESC instead of ENTER at the 


| end of the game, the Model 100 will go to the main menu. 


Pressing ESC instead of ENTER also will call the main 
menu at any time during the game. 

Play also will end if you are lucky enough to havea Now 
balance of $500 or more. In this case, however, the display 


| will tell you that You broke the bank!; to start over or to quit, 


press ENTER or ESC. 


RANDOMIZATION 

BASIC's random-number function gives you the same 
series of numbers every time you start it up. To make the 
game really random, SLOT.BA uses three techniques. 

First, the program uses the INKEY$ function to skip 
through the random-number series while waiting for you 
to answer the sound-effects question (Lines 20-25). This 
skipping guarantees that the game gets off to a random 
start. 

Second, when you pull the handle, the program spins 
the reels a number of times that is based partly on the time 
of day (Line 1120). This practice has the effect of skipping 
a randomly sized portion of the random-number series. 

Third, the program uses the INKEY$ function to skip 
more random numbers while waiting for you to pull the 
handle (Lines 110-130). In about 7.5 seconds, the program 
skips 200 numbers in the series and blinks the PLAY! logo 
to remind you to keep spending your silver dollars. 


THE FUN OF IT 

There is no strategy to playing SLOT.BA, yet this 7,600- 
byte program fascinates people who would never really 
gamble - just as real slot machines have fascinated real 
gamblers since Charles Fey built the first slot in 1887. 

More complicated slots than the Twenty-One Bell have 
more reels, fancier symbols and more complicated pay- 
outs. Some legal, competitive machines are designed to 
pay out very rarely but to pay only very large sums. Many 
modern machines accept up to eight coins per play. Such 
machines offer the opportunity to win or lose a fortune. 

For the gamester who's interested in the game itself, 
however, SLOT.BA offers endless amusement - and you 
can't beat the price. 

m 

Ralph Sherman is a musician, gamester, and computer hobby- 
ist. When he's not writing music or programs, he uses his Model 
100 in his work as a reporter for the Bristol (CT) Press. 








NGOTO5ØØP 

3110 N9=1Ø8:GOSUB4ØØØ:B1=B+1Ø:GOTO4Ø1Ø 
JELE " 

xr ' cent signs on Reel 1, or on Reels 


3129 NC (2) 4275 [1] TEER TLISELSENI= 68:GOS 
UB4090:Bl-B1*5:GOTO4010 

3130 N9-28: ar 166s; B1=B+2:GOT04Ø1Ø 
3298 ' 

3299 ' sound effect for the smaller payo 
uts 

3309 IFSO$="y"THENSOUND4ØØØ,4:SOUND3175, 
4:SOUND2667,4:SOUND2ØØØ ,4 

3310 RETURN 

3998 ' 

3999 ' byte-crunchers 

40090 PRINTEN9,WBS$;ARS$:PRINTON9+1Ø,ALS; BW 
$ : RETURN 


4019 GOSUB6ØØØ:GOSUB33ØØ:GOSUB55Ø:GOSUB6 | 


ØØ:GOSUB58Ø 


4020 PRINTGN9," ":PRINTEN9+1Ø," ":GOTO10 
Ø 

4998 ' 

4999 ' if combination is not a winner... 


5ØØØ PRINT@242,WBS; "SORRY"; BW$:LINE (11,4 
7)-(41,55) ,1,B: IFSOS="y"THENSOUND1L6ØØØ,3 
ø 

5Ø1Ø GOSUB55Ø:GOSUBS8Ø:GOTOLØØ 

5998 ' 

5999 ' display winning logo 








6000 PRINTG242,WB$;"U WIN";BWS:LINE(11,4. 


7)-(41,55),1,B: RETURN 

7998 ' 

7999 ' if balance > $1009 

8090 PRINT@12,WBS$;" GAME OVER ";BWS 

8919 IFSO$="y"THENFORX=16ØØØTOSØØØSTEP-3 
00: SOUNDX,2:NEXTX 


8020 PRINT@122," You ":PRINT@161," broke | 


"+PRINTQG2Ø1," the ":PRINTG241," bank!" 
8025 LINE(36,11)-(39,14) , 9, B: LINE(36,11) 
- (40,15) :LINE(39,11)-(35,15) 

8030 PRESET (5,38) :LINE(20,22)-(32,23) ,0, 


B 

8940 LINE(9,21)-(43,58) ,1,B:LINE(7,19)-( 
45,60) , 1, B: LINE(6,18)-(46,61) , 1,B 

89509 LINE(39,48)-(39,51) :PSET (39,54) 
89060 GOTO1049 

8998 ' 

8999 ' jackpot sound effect 

3900 IFSOS="n"THENRETURN 

9010 S$1=4353:S2=3265:S3=2591:S4=2176 
99020 SOUNDS1,7:SOUNDS2,7:SOUNDS3,7:SOUND 
S4,4:GOSUB9200 

9030 FORZ9-1TO3:SOUNDS4,2:GOSUB9210 : NEXT 
Z9 

9Ø35 SOUNDS4,2:GOSUB92ØØ 

9040 SOUNDS3,4:GOSUB92ØØ 

9Ø5Ø FORZ9=1T03:SOUNDS3,2:GOSUB921Ø:NEXT 
Z29:S0UNDS3,2:GOSUB9200:GOSUB9210 

9060 SOUNDS2,9:SOUNDS3,9:SOUNDS2, 9: SOUND 


$1,306 

9070 RETURN 

9198 * 

9199 ' musical pauses 

9200 FORZT=1T045:NEXTZT: RETURN 
3210 FORZT=1T0O13:NEXTZT: RETURN 


End of listing. 
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for the Model 100 


Wouldn't it be nice if the shift key could give 
you access to more function key definitions? 


Multiple Self-Prompting 
Function Key Banks 


f you've ever used an IBM- 

style computer, you know 

that they get a lot of mileage 
from the function keys by allowing 
them to be used them with modifiers 
such as CTRL, SHIFT, and ALT. This 
yields several sets, or banks, of keys 
instead of just one. 

Of course, this method has its 
drawbacks. Most programs that 
make heavy use of function keys 
come with a template or card to 
remind you what each combination 
of keys does. And heaven help you if 
you ever lose it. 

Well, your Model 100 can do better 
than that. By using the techniques 
presented in this article you can give 
your computer up to 64 banks of 
function keys that willidentify them- 
selves whenever you press a modi- 
fier key, no need for templates or 
cards. 

The program in Listing 1 demon- 
strates this power by activating seven 
banks of function keys, each with its 
own on-screen prompts. The pro- 
gram looks long, but most of the lines 
are short and whole sections are very 
similar. In fact, it is easier to create 
this programasa text file, making use 
of COPY and PASTE, and then load it 
into BASIC. 

Type in the program and run it to 
see what it does. Then we'll examine 











by Mike Wilson 
10 CLS 
20 PRINTØ49," ";:CALL30368 
25 KEYSTOP 


3Ø OUT185,255 

40 X=INP(186) 

58 OUT186,XAND254 

68 A=INP(232) 

78 PRINTCHR$(11); 

88 IFA=25STHENGOSUBI 96: GOTO2@ 

98 IFA=254THENGOSUB38@ : GOTO20 

188 IFA=253THENGOSUB456 : GOTO20 

118 IFA=251THENGOSUBSØØ : GOTO20 

128 1FA=247THENGOSUB75Ø : GOTO26 

138 IFA-239THENGOSUB? 86 : GOTO20 

140 IFA-223THENGOSUB! 850 : GOTO20 

158 PRINT3280," UNDEFINED KEY BANK - ACCESS:"4A;:GOTO20 
190 PRINT2280," Fi F2 F3 F4 F5 Fé F7? 
208 ONKEYGOSUB220,230,240,250,260,270,290 ,290 
205 CALL3Ø300:0UT185,255:X=INP(186) : OUT 186, XAND254 :A=INP¢ 232) : 
I FA=255THENI1 90 

218 RETURN 

220 PRINT"F1":RETURN 

238 PRINT"F2" :RETURN 

248 PRINT"F3" t RETURN 

258 PRINT"F4" : RETURN 

268 PRINT"FS" : RETURN 

278 PRINT"Fé" : RETURN 

288 PRINT"F7" : RETURN 

298 PRINT"F8" : RETURN 

380 PRINT3280," S1 S2 S3 S4 S5 Sé 87 
310 ONKEYGOSUB330 , 340 , 350 , 360 , 378 , 380 , 390 , 400 
315 CALL30300 :0UT185,255:X=INP¢ 186) : OUT 186, XAND254 :A=INP(232) : 
IFA=254THEN3G@ 

320 RETURN 

330 PRINT"S1":RETURN 

348 PRINT"S2" :RETURN 

358 PRINT"S3":RETURN 

368 PRINT"S4" : RETURN 

378 PRINT"S5":RETURN 

388 PRINT"S6" :RETURN 

398 PRINT"S7" : RETURN 

488 PRINT"S8" :RETURN 

458 PRINTA289," Ci C2 C3 C4 cS Có C7 
468 ONKEYGOSUB488 ,490,508,510,520,530,540,556 
465 CALL38380:0UT185,255:X-INP(184) :OUT186 ,XAND254 :A=INP(232) : 
I FA=253THEN450 

478 RETURN 

488 PRINT"C1":RETURN 

498 PRINT"C2" : RETURN 

588 PRINT"C3" t RETURN 








F8" ; :PRINT30 , : KEYON 


S8" ; :PRINT30 , : KEYON 


C8" ; :PRINT30O , : KEYON 


continued 





Listing 1. Here's a program that adds MACRO key ability to your Tandy 100. 
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| | 688 PRINT3290, 
618 ONKEYGOSUBÓ38,640,658,660,670,680,690,700 
615 CALL383080:0UT185,255:X-INP(184) : OUT 186, XAND254:A=INP(232) : 


| S48 PRINT"C?" 











510 PRINT"C4" 
520 PRINT"CS" 
530 PRINT"Cé" 


: RETURN 
1: RETURN 
: RETURN 
: RETURN 
1: RETURN 
* Bi 62 63 G4 


550 PRINT"C8" 


IFA=251 THENS@@ 

62@ RETURN 

638 PRINT"G1" RETURN 
646 PRINT"G2" : RETURN 





65@ PRINT"G3" : RETURN 
66@ PRINT"G4" ;:RETURN 
678 PRINT"GS" : RETURN 
688 PRINT"G6" : RETURN 
$78 PRINT"G?" : RETURN 
768 PRINT"G8" RETURN 
758 PRINT3288," D1 D2 D3 D4 


IFA=247THEN750 

770 RETURN 

780 PRINT"D1":RETURN 
798 PRINT"D2" : RETURN 
800 PRINT"D3" : RETURN 
818 PRINT"D4" : RETURN 
820 PRINT"DS" : RETURN 
838 PRINT"Dó" : RETURN 
846 PRINT"D7" : RETURN 
856 PRINT"D8" : RETURN 
906 PRINT@286," Ni N2 N3 N4 


I FA=237THENYØG 

926 RETURN 

938 PRINT"N1" : RETURN 
?48 PRINT"NZ2" : RETURN 
958 PRINT"N3" :RETURN 
960 PRINT"N4" : RETURN 
970 PRINT"NS" RETURN 
980 PRINT"N6" : RETURN 
990 PRINT"N7" : RETURN 
, 1888 PRINT"NS8" : RETURN 


IFA=223THEN1Ø5Ø 

1070 RETURN 

1888 PRINT"L1":RETURN 
1098 PRINT"L2" : RETURN 
1100 PRINT"L3" : RETURN 
1118 PRINT"L4" : RETURN 
1128 PRINT"LS" t RETURN 
1138 PRINT"Ló" : RETURN 








1149 PRINT"L?" : RETURN 
1158 PRINT"L8" : RETURN 


766 ONKEYGOSUB?788,798,800,810,820,830,840,850 
765 CALLS38388:0UT185,255:X-INPC184) : OUT 186, XAND254:A=INP(232) : 


918 ONKEYGOSUBY3Q,940,950,960,970,986,990,1000 
915 CALL30300:0UT185,255:X-INP(184) : OUT 186, XAND254 :A=INP(232) : 


1850 PRINT@280," L1 L2 L3 L4 
166@ ONKEYGOSUB 1880,1090,1100,1119,1120,1130,1140,1150 
1065 CALL3Ø3ØØ :OUT185,255:X=INP( 186) : OUT 1 86 ,XAND254 :A=INP( 232) : 


65 Gé G7 G8" ; : PRINT 90 , : KEYON 





DS Dé D? D8" ; : PRINT 368 , : KEYON 


NS Né N7 


N8" ; : PRINT ØØ , : KEYON 


LS Lé L7 L8" ; : PRINT 90 , : KEYON 





End of listing. 





theimportantlines of codeso you can 
see how it works. 

When you run this program it 
prints F1, F2, F3...F8 on your screen 
above the function key location 
markers. (If you get L1, L2, etc. you've 
got your CAPS LOCK key down and 
are getting ahead of the rest of us; 
release it.) 

If you press one of the function 
keys the program will print its num- 
ber at the top of your screen (e.g. F1, 
F2, etc.). That's really about all the 
program does. With one rather big 
exception. 

Press the SHIFT key. Notice that 





the prompts now read S1, S2, $3...58. 
If you press a function key while 
holding down SHIFT the program 
will print “S#” instead of "F£". Thisis 
the second bank of function keys. 
When you release SHIFT the display 
goes back to the normal F1-F8 bank. 

You can access other banks of keys 
by pressing CTRL, CAPS LOCK, 
GRPH, CODE, or NUM. As long as 
the key is down, the display will 
show a new set of prompts and each 
function key will jump to its routine 
for that bank. Use CTRL-C or BREAK 
to stop the program, if you need to 
interrupt it. 





There are seven banks of keys (in- 
cluding the unmodified F1-F8) de- 
fined in this program, but there are 
many others available. After we look 
at how the program works, you'll see 
how you can program these other 
keys as well. 

The program consists of three 
major sections, two of which are re- 
peated for each bank of keys. They 
are: the Main Loop, which deter- 
mines which modifier key (if any) is 
pressed; a set of prompts and defini- 
tions for each bank of keys; and the 
function key routines themselves. 
We'll look at each of these sections. 


MAIN LOOP 

The Main Loop for this program 
runs from Line 20 to Line 150. It reads 
and writes to a couple of ports in the 
Model 100 that control keyboard 





There are seven 
banks of keys. 





scanning and then jumps to the se- 
lected key bank. Because this is the 
heart of the program and you need to 
understand it to make use of this 
technique, we'll cover it detail. 

First, a word of warning. Make | 
sure that you understand what is 
happening before you start experi- 
menting. Failure to follow the rules 
may make your Model 100 ignore 
keyboard input (including BREAK) 
or even turn itself off completely. 

Line 20 begins the Main Loop. It 
firsterases any display that may have 
been printed by a pressing a function 
key and then turns off the back- 
ground task. 

The background task is a set of 
routines built into the computer that 
are executed about 256 times a sec- 
ond even when you are running a 
program. It controls keyboard scan- 
ning, blinking the cursor, and read- 
ing the clock. In effect, the computer 








L 
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| is doing two things at once; running 
your program (the foreground task), 
and executing the background task. 

CALL 30300 turns off the back- 
ground task so that we can read the 
keyboard directly without interfer- 
| ence. The background task is auto- 
matically turned on again every time 
you print to the screen or when 
BASIC finishes running a program, 
| but while it is off, the keyboard is not 
being read unless we do it ourselves. 

Line 25 stops the function key in- 
terrupt so that the prompts won't 
show up at the wrong place on the 
screen. 

Line 30 starts our own keyboard 
| routine by using the OUT command 
of BASIC to access port 185. This port 
is used by the computer to scan most 
of the keyboard and by sending the 
value 255 we effectively disable it. 

Lines 40, 50, and 60 take care of the 
rest of the keyboard. Port 186 is used 
to scan only the SHIFT, CTRL, CAPS 
LOCK, GRPH, CODE, NUM, and 
PAUSE/BREAK keys. Since this port 
also controls other things, including 
power to the computer, you have to 
be very careful when you access it. 

The correct way is to first read the 
port (Line 40) and then program the 
bits you are interested in with AND 
or OR (Line 50). By sending the value 
initially read from the port ANDed 
with 254 we change only the bit that 
controls keyboard scanning without 
disturbing the other bits in the port 
which control other functions. 

At this point in the program only 
the keys listed above will return a 
code from the keyboard scanner. 
This code appears at port 232 and is 
read in Line 60. The value that is 
returned tells us which key has been 
pressed. Table 1 lists the keys and the 
codes they will return. 

Line 70 homes the cursor and 
turns on the background task. 

The rest of the Main Loop is 
straight forward. We check the value 
returned from port 232 to see which 
key or keys (if any) have been pressed 
and jump to the section of code that 
| activates that key bank. If the value is 











KEY CODE 
NONE 295 
SHIFT 254 
CTRL 253 
GRPH 251 
CODE 247 
NUM 239 
CAPS LOCK 223 








Table 1. Codes for the special key control keys. 


not one of those tested in the IF- 
THEN statements, the program 
prints an "UNDEFINED KEY 
BANK" message along with the 
value returned from the port. More 
on this later. 


FUNCTION KEY PROMPTS 
AND DEFINITIONS 

The second major section of the 
program is the function key Prompt 





CALL 30300 
turns off the 
background task. 





and Definition routine. This section is 
repeated for each defined bank of 
function keys and the structure of 
each is the same. Only the screen 
prompts and the some of the num- 


| bers are different. Examples of this 


section are Lines 300-320, 450-470, 
and others. 

Each section begins by printing 
the prompts for the selected key 
bank. It then sends the cursor to the 
top of the screen and turns the key 
interrupts back on. 

The next line is a standard func- 
tion key interrupt definition that 
primes the keys with the addresses of 
their routines. 

The next line performs the same 
job as the Main Loop by turning off 
the background task and reading the 


| keyboard. This line makes sure that 


the correct prompts and interrupts 





are available as long as you keep the 
modifier key depressed. 

These sections of the program end 
with a RETURN that sends you back 
to the Main Loop when you release 
the modifier key. 


FUNCTION KEY ROUTINES 
Thissection of the program, which 
is repeated many times, is just the 


| action that each key performs when 


pressed. Examples are lines 220-290, 
330-400, and others. In this program, 
each key simply prints its identifier 
and returns. 

You could turn this demonstra- 
tion program into something more 
useful by changing the appropriate 
prompt line and inserting your own 
function key routines. 

Actually, the program does have 
one useful purpose if you intend to 


| 
| 


use this technique. Pressing two or | 


more modifier keys while the pro- 
gram is running, gives the "UNDE- 
FINED KEY BANK" message. For 
example, try pressing both the CAPS 
LOCK and the NUM keys. The pro- 
gram should reply: "UNDEFINED 
KEY BANK - ACCESS: 207". The 207 
is the code that is being returned from 
port 232. By putting another IF- 
THEN statement in the Main Loop 
and checking for the value 207, you 
can gain access to yet another bank of 
eight function keys that will only 
show up when both the CAPS LOCK 
and NUM keys are depressed. 

By trying different combinations 
of two, three, or more keys at once 
you can determine what value you 
need to check for to jump to the bank 
that is called up by that particular key 
combination. 

There are 64 sets of function keys 
available using this method, giving 
you access to 512 self-prompting 
function keys. 

So, write your own applications 
using this method, and practice your 
superior smile for the next time you 
see someone pulling out a keyboard 
template for one of those bulky desk- 
top computers. 





m) 
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All The Power 
Youll Fver Need 





Traveling Software. A Powertul 


“Add 2M es of Memory to Your 
100/102 


Just snap the BOOSTER PAK onto the bot- 
tom of your Tandy 100/102 and plug in two 
cables. That's all it takes, And you can add 
up to 2 megabytes of RAM or ROM ora 
combination of both to your Tandy 100/102. 
And since BOOSTER PAK is an open sys- 
tem, you can customize it as you go. Add 
more RAM or ROM software as you need it. 
BOOSTER PAK comes with: 136K of RAM 
memory, 64K of ROM software, 16 socketed 
slots for 32K RAM and/or ROM chips and 
X-TEL Communication Software. It also has 
provisions for a battery pak, built-in modem 
and TS-DOS disk software built-in. It even 
includes a fast action Asteroids game! 






















Five Programs On One Chip. — 

Five ee for the Tand 
100/102/200, and the NEC PC-8201/8300 
that occupy only one file on gour computer. 
Programs included are: T-Word—a laptop 
Word Processor with disk drive support; 
ROM-View 80—an 80-column display that 
lets you view 60 characters and includes 
scrolling; T-Base—lets you create true Rela- 
tional Databases; IDEA!~a flexible organ- 
izer-with an outline format; and Portable 
Disk Drive Support—so you don't have to 
store TS-DOS in your computer. 

THE ULTIMATE ROMIL. ... WAS 322995. 

NOW ONLY $199.00* 
NOTE: Tandy 200 version includes TS-DOS 
instead of ROM-View 80. 







THE ULTIMATE 
ROM thre 
1985, TRAVELING SOFTWARE INC 








— Add Up to 256K of ROM Software 8-ROM EXPANSION PAK 

to Your Laer. w/SARDINE PLUS ............ $299.00 
The 8-ROM EXPANSION PAK gives — 8-ROM EXPANSION PAK 

p d ROM € p -in n € w/TS-DOS in a ROM chip . ...... $169.95 

software. This slim-designe : 

pe measures only 1" thick and 24^ wide, NOTE: I you de vee PREG TE es 
ttaches directly under the Tandy 100/ you ran GROR lor an ON å 

102/200 or NEC PC-8201/8300. Only one JA Me SARDINE Sk veden 

Connection is required to the existing ROM can be upgraded for just $198.00. Call 


socket Buy the & ROM EXPANSION PAK (800) 3 for details. 
with either a four-chip set of SARDINE or 
Traveling Softwares TS-DOS. 

What is really amazing is that switching 
from one ROM software chip to another is 
done all by software —absolutely no 
mechanical switches! 

BONUS! With each 8-ROM EXPANSION PAK 
w/SARDINE PLUS purchase, get TS-DOS in 
a ROM FREE. 





Jonnection For Your Tandy 100 





Your Laptop Dictionary & Spelling Checker. 
Sardine is able to look up a single word 
in seconds. Or check a 25K document in 
less than three €: also lets you cre- 
ate your own auxiliary dictionary of terms, 
words, names and pan al Compati- 
ble with the Tandy 100/102/200 and NEC 
PC-8201/8300 kpop computers. Requires 
16K RAM and a Sd og Computing 
disk drive. ROM version also includes 
T-Word Word Processing and text formatting. 
SARDINEDisk........... m $99.95 





TS-DOS/TS-RANDOM 


TS-DOS - The Traveling Software 
Disk Operating System 

TS-DOS is the complete operating 
system for Tandy and Purple Computing 
portable 3/2" disk drives; With TS-DOS you 
can list files both on disk and in RAM, save 
to disks, load into RAM, kill and rename 
files. Simply by pressing a function key. 
With its unique “tag” feature you can load, 
save or kill several files at once, BASIC 
programming and disk access included. 
TS-RANDOM - Your Rapid Access to 
Many Laptop Files. 

For the Tandy or Purple Computing 
100K disk drives. TS- OM retrieves 
information faster than sequential access 
methods. Supports up to eight files for 
simultaneous input and output. Even 
includes special utilities for quick copying 
files and recovering erased or damaged 
disk files. Basic programming and dis! 


access are also included. 

TS-DOS Disk (all drives) ........ $69.95 
TS-DOS ROM (all drives) ........ $99. 
TS-RANDOM Disk (TDD # only). . $89.95 
TS-RANDOMROM ....... AS 5149-85- 
(TDD #1 only) NOW ONLY $119.95* 


Wi TWARE 





MAC-DOS II 
Connects Your Mac to Your Lapto regular Macintosh files, Transfers files 
or Tandy/Purple Computing Portable between be Tandy M100/102/200 or NEC 
Disk Drive. PC-8201/ En and any version of the 
MAC-DOS I gets your Mac and laptop Macintosh at speeds up to 19,200 baud 
“talking” by the connection of ourthree-con- instantly. Also includes a mors disk drive 
nector cable. Itlets you read, edit and print adapter for optional direct disk access. 
files created with your laptop as easily as MAC-DOS I with cable ........ $129.95 





LAP-DOSII 


Connects Your IBM ole Deskto 
to a Tandy 100/102/200, NEC PC-8201/8300 
or Tan a es Computing Disk Drive. 
LAP-DOS I! lets your IBM or compatible 
"talk" directly to your laptop by the con- 
nection of our specially designed three- 
connector cable. Links Tandy and NEC 
with all IBM or compatibles including PC, 
XT, AT and the new PS/2 series. Transfers 
files at speeds Re 19,200 baud instantly. 


Also includes a Tandy disk drive adapter 
for optional direct disk access, 
LAP-DOS I with cable ......... $129.95 





Power Your Disk Drive or Laptop. 
- Powercell is the lightweight and conven- 
jent way to power your disk drive or laptop 
simultaneously. Å performance far superior 
“to "quick drop" Ni-cad batteries (up to 40 
hours of power!). For use with portable disk 
drives and laptop computers. Includin 
Tandy 100/102/200 and NEC PC-8201/8300. 
POWERCELE SS SS SS $79.95 


We Convert Your am 
aes Plug-in im Chip. 

. Now you can have your own p: 
burned orito an EPROM so they vil vok : 
justlike the builtin ROM software alteady 
in m TANDY 100/102/200 orNEC — ^ 
8201/8300. It's the ideal way to free-up your 
RAM memory for data storage and 


make your p Copy protected. Our 
patented exible Circuit allows you 
to change your programs and to have your 
EPROM re-burned at substantially lower 
prices. Overnight service ensures that we 
can meet your schedule. Our service is 
guaranteéd or your money back. Quantity 
pricing as low as $41.00 each. No minimum 
Kg Call for your free ROM informa- 
tion kit. 


s m 2 gs 


Q M 








you have a BOOSTER PAK or the ROM ver- _ 


Makes Your Desktop PC Into = Three Programs on One Chip. 

“a Disk Drive For Your Laptop Computer. =- Cleaseau Editor—increases the 
BOOSTER LINK allows you to transfer Word Processing power of your built-in 
files between your Cor wer uter Bub uis uum pend to a paste buffer, 

- and your Tandy 100/102/200 or NEC search and replace, insert, overwrite, and 
PC-8201/8300 using a S three- more; Cleaseau Basic or—shortens 
connector cable and TS-DOS or any other programming time by helping you find the 
disk operating system. It allows TS-DOS to error causing statement in a line; ROM2 

load, save, rename and kill files directly. If Macro Assembler and Symbolic 8085 


Debugger—assembles 300 lines 


sion of TS-DOS, you can also create and minute, allows you to simulate 1 
move from subdirectory to subdirectory instructions per second, uses the com- 

* with the push of à button. BOOSTER LINK plete 8085 instruction set, and more. 
comes with a cable and is available for the ROM2/CLEASEAU ASSEMBLER . . $99.95 


IBM PG; XT, AT or compatibles and all 
models ofthe Apple Macintosh. 


BOOSTER LINK MAC/IBM 
 wWühcabiB Ga $99.95 
_ BONUS! BOOSTER PAK owners save $30.00 
(limited time offer) 
NOTE: BOOSTER LINK requires disk-drive 
software to operate! 


When ordering, please match your computer model with the appropriate order number 
listed in the following chart. This number will help us expedite your order. Thank you. 





Product Tandy Tandy IBMs 
Name 100 102 200 NEC Macintosh & compatibles 
ULTIMATE ROM II RS1-UR2 RS1-UR2 RS3-UR2 NE1-UR2 
SARDINE Disk RS1-5D1 RS1-SD} RS3-SD1 NE1-SD1 
SARDINE ROM Chi RS1-SD2 RS1-SD2 RS3-SD2 NE1-SD2 
SARDINE 4 ROM 
Set for Booster Pak RS1-5D3 RS1-5D3 
MAC-DOS II APLMD] . APLMD]  — APEMD] -API-MD1 APLMDI 
LAP-DOSII PC1-LD1 PC1-LD} PCHLD] .. PCLLIPDI PC1-LD1 
POWERCELL HWLPPl | HWI-PPI  HWLPPb  HWI-PPI 
8-ROM EXPANSION PAK 
w/SARDINE PLUS RS1-SD4 RS1-5D5 RS3-SD3 NEI-SD3 
w/TS-DOS RSI-TS3 RS1-TS4 RS3-TS3 NEL-TS3 
TS-DOS Disk RS]-TS1 RSI-TS1 RS3-TS1 NELTS1 
TS-DOS ROM Chip RSH-TS2 .  RSLITS2 RS3-TS2 NELTS2 
ROM2/CLEASEAU S 
ASSEMBLER RS1-CLl RS1-CL1 RS3-CLI NEL-CLI 
BOOSTER PAK HWI-Pl = HWI-BP2 
ons: 
CMOS RAM ($20) HWLI-BP3  .HWI-BP3 
6 Slot RAM Expansion 
Board ($69) HWI1-BP4 — HWI-BP4 
256K RAM ion 
Modules ($159) HWIBPS — HWI-BPS 
Internal Nicad 
Yu Pak ($69) HWI-BP6 . HWI-BP6 
M PC Booster Link 
w/cable($89.95)* PC1-BL1 PC1-BL1 PCIBLI 
Mac Booster Link 
w/cable ($69.95)* AP1-BLI AP1-BL1 API-BL1 
ine Plus 4 Chip 
Set ($194.35) . RS1-SD3 RS1-SD3 
BOOSTER LINK (Mac) API-BLI APIBLI AP1-BL1 AP1-BL1 AP1-BLI 
BOOSTER LINK (IBM) PC1-BL1 PC1-BLI PCI-BLI PC1-BL1 AP1-BL1 PC1-BL1 


*BOOSTER PAK owners and purchasers save $30.00. Only $69.95. Limited time offer. 





North Creek Corporate Center - 19310 North Creek Parkway - Bothell, WA 9801 
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FAIL-SAFE ÅLARM 


Cheap Theft Insurance For Your Portable 


by W. R. Henry 











hen my briefcase with a 
W Portable 100, data cas- 

settes and recorder 
were stolen from an airport, I decided 
to prevent this from ever happening 
again. I designed and installed a 
powerful theft alarmin my briefcase. 
Not only is the alarm loud enough to 
deter any would-be thief, but the cost 
was minimal. The alarm consists of 
items bought off-the-shelf which 
were easily modifiable. The total cost 
| for assembling this device is about 
seventeen dollars. This is a small sum 
to protect an investment of one thou- 
sand dollars or more. Had I had it 
when the theft occurred, I would not 
have had to replace a Model 100, a 
cassette recorder, three ROM chips 
plus my attache case. 

The theft alarm is placed in my 
briefcase or attache case along with 
my computer. I can also use this 
device as an alarm system in a motel 
or hotel room. Once the alarm is acti- 
vated, only the owner knows how to 
turn it off. I call it my fail safe alarm. 

When traveling I set the alarm, 
which is secured in my briefcase by 
hook and loop fasteners strips. The 
| alarm remains silent as long as my 
briefcase is laying flat. Should any- 
one pick up the case, the alarm is 
activated and sounds off. Basically, 





the alarm is a battery operated unit 
sold by Radio Shack called the Pow- 
erhorn Alarm. 

The adaptation of the Powerhorn 
Alarm unit requires no modification 
of the unit itself. It is simply a mer- 
cury switch wired to a phone plug 
which plugs into an existing phone 
jack on the Powerhorn Alarm. Thus 
as long as you set the briefcase or 
attache case flat, the alarm is inactive. 
My attache case has a combination 
lock on it. If someone picks up the 





Should anyone 
pick up the case, 
the alarm activates 
and sounds off. 





case, itis impossible for them to open 
the case and turn off the alarm. Also, 
the alarm unit itself can be set with a 
combination code. 


SIMPLE INSTALLATION 

The accompanying photos help to 
explain the installation of the alarm 
in an attache case. It occupies little 
space in the briefcase and is powered 
by an inexpensive nine-volt battery 
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Photo 1. Powerhorn Alarm unit with Sensor 
plug installed in attache case. 


obtainable almost anywhere. Battery 
drain is nil until the alarm sounds off. 
When it does go off, the volume is 
very loud. My battery has been in use 
now for two years and is still strong 
whenever I test the alarm. 

A schematic is included for the 
simple plug-in alarm adapter. You 
don’t have to be an expert with a 
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Photo 2. The completed sensor plug in unit and the 
door-switch unit it replaces. 


soldering iron to make the four 


| simple solder joints required to add 
| themercury switch. Thisswitchisthe 








key component. 


A CHEAP SECURITY 
INVESTMENT 

As I mentioned when I travel 
alone on business trips this unit 
serves not only to protect my brief- 
case and its contents, but enables me 
to sleep peacefully when ina hotel or 
motel room. The alarm can be set for 
its original purpose, which is to 
sound an alarm should someone 
open the door to my room. Because 
hook and loop fasteners strips are 
used to fasten the Powerhorn Alarm 
in place in my briefcase, I can remove 
the unit easily should I wish to use it 
asa door alarm. 

I've found the alarm well worth 
the cost. It is certainly much cheaper 
than a commercial insurance policy 
for protecting my computer and the 


| client data I input during trips. 


When my case was stolen, I had 
several cassettes of client data in it. It 
was embarrassing to have to go back 
and duplicate this data. Added to the 


replacement cost for my equipmentI | strips to both the 
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was doubly insulted. This simple, 
inexpensive hardware solution has 
eliminated the chance of a second 
expensive and embarrassing theft. 

I use the unit constantly on trips, 
secure in the knowledge that it 
works. It is simple, noisy, cheap and 
effective. 


THE PLUG-IN ADAPTER 
Unscrew the phone plug's black 
barrel. Strip 1/8 inch of insulation 
from each end of two 1 inch lengths of 
solid hook-up wire. Tie the bare ends 
of each wire. Slip the plastic barrel of 
the phone plug over the two wires. 
Solder the two wires to the tip and 
ring contacts on the plug respec- 
tively. Solder the other two ends to 
the mercury switch leads. Screw the 
plastic barrel back onto the phone 
plug. Plug the adapter into the Pow- 





Pie Ta" n 








erhorn unit. 

Install the bat- 
tery in Powerhorn, 
set the combina- | 
tion on the alarm, 
and test the unit. 

Glue hook and 


loop fasteners Solder 





Mercury Switch 


e indicates solder joints 


Phone Plug 


i | 6. 


** 





adhesive 





Figure 1. Diagram of the alarm sensor plug, showing the electrical connections. 


Description 
|. Safehouse 
Personal Powerhorn* 
2. 1/8"Phone Plug (2-pkg) 274-286 
3. Glass Mercury Switch 
(or metal tilt switch if available) 


5. Hook and loop 
fasteners Strips 
9 Volt Battery 














Photo 3. Back of the Powerhorn unit with the hook-and-loop 
fastner strip glued in place. 


powerhorn and to the inside of your 
attache case. 


TEST THE UNIT 

Now if it doesn't work, you have 
goofed some place. Re-read the in- 
structions and do a continuity test on 
the adapter circuit. Resolder if neces- 
sary. 

It takes about one hour to put this 
system together, even if you are all 
thumbs like myself. 

a 

W.R. Henry is a self-employed com- 
puter consultant and an applications 
programmer of the Tandy 100 since its's 
inception. His main use of the 100 is in 
on-site data gathering and data analysis 
for clients. Additional use is for word 
processing and spreadsheet output using 
PCSG's Super Rom chip. 


R/S Cat& Cost 
49-610 12.95 
1.39 
275-027 1.19 
64-001 89 
2.00 
23-553 1.99 





If this model is not in stock, others are available. 
Hook and loop fasteners strips obtainable at most 
| | varietyor hardware stores as a kit with 





Figuree2. The parts list for the alarm system. 
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SOFTWARE REVIEW 








T-Backup- 
Model 100 Changeover 


Save your Model 100/102, 200, Olivetti M-10 or 


NEC PC-8201 from losing its memory, and your files, 
with this easy-to-use tape backup program. 





by Ralph Tenny 














he Radio Shack Model 100 is 

| so versatile that it gets in- 
volved in many different 
projects. However, unlike computers 
which can boot from application- 
specific disks, a change in Model 100 
function requires a memory purge. A 
cold start does the purge, but what 
about the saving of the current data? 

T-backup is a tape save utility 
which saves the entire Model 100 
working RAM contents in one pass, 
and provides easy verification. In 
less than 15 minutes you can change 
from one task to another, and pro- 
vide excellent security for the data 
and programs of both applications. 
Or, you can keep daily backup copies 
of critical applications data at a cost 
of about nine minutes per save. The 
actual save takes about four and one- 
half minutes for a 32K machine (or for 
each bank of a multi-bank machine). 
You are then reminded to verify the 
save (re-wind the tape and read it 
back for comparison). If the save is 
notsuccessful, you can make another 
try without disturbing the data cur- 
rently in the machine. 

T-backup comes in an attractive 
package with a comprehensive and 
clearly-written manual. The tape 
. loaded on the first try and the pro- 
gram worked exactly as advertised. 
It occupies 2,300 bytes of memory 











and uses 600 bytes as 
working scratch t 
pad. Each memory $ 
bank of multi-bank ' 
machines must have |# 
a copy of T-backup | n 
installed if you plan 3 
to save the bank. 

Once loaded, T- 
backup is operated 
from menu displays 
and is very easily 
learned. Menu 1 of- 
fers function key se- 
lection of backup, verify, and restore 
functions. The program exits with 
the F8 key. 

Pressing F1 takes you into backup 
mode. A new screen prompts you for 
a six-character filename and a 28- 
character comment. After you type 
the comment, you are prompted Be- 
gin (y[n)?, giving you a last chance to 
set the tape for record. Pressing y 
starts the process without using EN- 
TER. After the save is complete, you 
are reminded to verify the tape. 

Theverify is also easy—rewind the 
tape and press F2 to start the opera- 
tion. If the verify is correct., the job is 
done. For a data changeover, you can 
then do a cold start and restore data 
from another task. 

The restore operation is similar to 
backup and verify, except that it starts 


um PLI PELTA P } 

















a 
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from the F3 key. After the tape header 
is read, the tape stops and the display 
shows the tape name, comment time 
and date of saving. This extra infor- | 
mation provides a double-check on 
the identity of the data being loaded. 
No attempt will be made to restore 
data saved from a machine equipped 
with a different amount of RAM. 

= 





Manufacturers Specifications 
Traveling Software, Inc. 

11050 Fifth Avenue Northeast 
Seattle WA 98125 

| 206-367-8090 


T-backup --$19.95 
An important utility for anyone us- | 
ing a Model 100 or 200, Olivetti 

M10 or NEC PC-8201. | 
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TROUBLESHOOTING 





Protocol Testing With Tandy 


Model 100 as an Analyzer 


by Philip Ouellette 








he Tandy Model 100/102 
i computer is the most versa- 
tile piece of test equipment a 
computer technician or engineer can 
carry. A pretty strong statement, but 
one I think can be easily supported. 
First of all Tandy was smart 
enough to include a plethora of inter- 
faces, Bar Code Wand, Centronics 
Printer, RS-232, Modem. Virtually all 
of the common methods of computer 
communications are included. In 
addition there is sufficient software 
support to make them useful for 
| analyzing problems. Malfunctions 
are much easier to correct if you 
know which machine is at fault. 
The RS-232 so called standard is 
the most common way to get infor- 
mation from one machine to another. 
The physical problems of correct 
wiring, hardware handshaking, data 
rates, etc., have been covered in print 
many times. But speak of protocol 
and most people think of the Goldy 
Hawn movie of the same name. 
Protocol is like grammar in 
speech, a way of organizing data into 
an understandable conversation. 
There can be nothing more confusing 
than talking to somebody who has a 
. different idea about what certain 
| words mean. The same thing can 
happen with computers, and drive 
both them and you crazy. When a 














design engineer has this sort of prob- | 


lem, he pulls out a $5,000 serial data 
analyzer and finds out what's going 
wrong. Unfortunately, the rest of us 
have to make do with affordable 
tools. 

Recently, I had that kind of prob- 
lem between a computerized coin 
counter and a Las Vegas casino’s 





A $500 Model-100 

did as good a job 

as the $5,000 unit 
would have 





mainframe. The problem was with 
certain non-printable ASCII codes. 
My machine was expecting an ac- 
knowledgement message back from 
the mainframe and it wasn’t getting 
it. [had to figure out if the fault was in 
my machine or the mainframe. 

First lused TELCOM to download 
the transmission from my machine 


| into a data file on the M-100. Then I 


examined the file using TEXT. The 
characters I was interested in were 
displayed as control codes. I looked 
up the control codes in the appendi- 

















ces of the users manual. It turned out 
my machine wasn’t sending an STX 
code at the beginning of it’s transmis- 
sion like it was supposed to. A simple 
software fix got me out of what could 
have been a sticky situation. Imagine 
a $500 Model-100 did as good a job as 
the $5,000 unit would have. 

The benefit to me was that I could 
identify the problem and verify that | 
it was corrected without involving 
another manufacturer's rep. Without 
my Model 100 it would not have been 
as easy to determine whose equip- 
ment was at fault. 

This example shows the value of a 
portable terminal to service person- 
nel. You can also test serial and paral- | 
lel printers, read bar codes to see if 
they are machine legible, test mo- 
dems. The uses are only 
limited by your 
imagination. 

So you see your 
portable can be 
more than just 
an address or 
note book. As 
for my 
Model-100, 
it goes along 
on every job. 4 










24 PORTABLE 100 May 1988 





Make your 
Model 100, 102, or 200 
practically perfect 


PCSG has long been the champion of 
the Model 100 and 200 laptop 
portable computers. No longer toys, 
these machines can be made to rival 
the performance of many desktop 
models. 

PCSG in the past three years has 
developed software programs and 
innovations that have rewritten all 
standards. 

We can give you what we regard 
as the superior Model 100 or 200 
system. This is a catalog of what you 
need to build that nearly perfect 
portable computer. Full brochures 
and the answers to any of your 
questions are just a quick phone call 
away. So, if you want to add 
dimensions of portable performance 
to your laptop unit, call in your order 
today 

PCSG sells every product on a 
30-day full refund trial so there’s no 
risk. 


Snap-in ROMS 





Super ROM 


Get Lucid Spreadsheet, Write ROM, 
Lucid Database and Thought Outliner 
all on one ROM. Completely 
integrated so they all work together 
with the familiar Cut and Paste 
working between all applications 
Guaranteed to be the finest four 
programs available for the Model 
100, 102 or 200 on one ROM 
$199.95, plus shipping 








Write ROM 





This is full word processing capability 
like on å desktop. Not only format 
documents with left and right hand 


margins, page numbers, headers, 
footers but phenomenally more. Write 
ROM gives you memory writing 
performance: 44 features and 
functions that really bring text 
processing power to the Mode! 100, 
102. $99.95, plus shipping 





Lucid ROM 


Features like LOTUS 193. But not just 
a spreadsheet, a program generator 
as well. Features like Cut and Paste, 
variable column widths and lightning 
fast calculation soeed. Lucid changes 
your computer into capacity you 
never thought possible in the Mode 
100, 102, $99.95, plus shipping 


Disk + ROM 


Now your Mode! 100, 102, 200 plus 
any desk top computer is an instant 
disk system. With a function key 
transfer any files or BASIC or machine 
code programs to and from your 
portable and the other computer. The 
IBM version works over the phone 
$149.95, plus shipping. Cable $40.00 

















Business Analyst ROM 





Perform those strategic "what if” 


business problems. Allows detailed 
financial analyses like Breakeven, IRR, 
NPV, return on investment, interests 
costs, PV and others at the touch of a 
function key. Prints detailed reports, 
So easy! Also it performs simple 
everyday calculator functions. Check 
it out! $99.95, plus shipping. Model 
100, 102 


HARDWARE 








6-ROM Bank 


Access Super ROM, Disk +, Business 
Analyst and others. The 6-ROM Bank 
with its 30 hour rechargeable battery 
pack lets you personally create your 
ultimate Mode! 100, 102 system 
$199.00, plus shipping. 


OTHERS 








Custom ROMs 





Have your own BASIC program put 
on to a ROM, or combine your 
program with a PCSG program. 
$500.00 minimum order — quantity 
pricing as low as $15.00 per ROM. 
Mode! 100, 102, or 200. 





Cassette Programs 





PCSG also has cassette programs 
available at closeout prices. Choose 
from Tutor+ (typing tutor — $24.98), 
Tyoe + (makes your M-100 a memory 
typewriter — $34.98), Tenky + 
(financial calculator — $29.98), 
Data+ (file manager — $29.98), 
Sort? + (sorting routine — $14.98), 
Write + (word processor — NEC 
only — $34.98) 

Shipping: $7.50 (U.S.) two days; 
$15.00 (U.S.) next day. 


RORTABLE GOMRUTER SURORTORQUP 





11035 Harry Hines, Blvd., Suite 206, Dallas, TX 75999. 1-914-351-0564. 


Circle 78 on Reader Service card. 
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CONSTRUCTION 








The Budget Banks 


How to get those two extra 24K memory Banks 
to fit in your Budget 


by Paul Globman and James Yi 


ith all the new informa- 

tion available about 

bank switching, peek- 
ing/poking, and chaining across 
banks, it seems inconceivable that 
anyone would settle for a one bank 
Tandy 200. Unfortunately the price 
of the additional 24K RAM modules 
are quite high. 

Imagine spending $400 (Tandy 
prices) for two extra 24K RAM banks! 
I can't afford it, but I can easily afford 
$40 (or less) for two extra RAM 
banks. So I picked up a pair of 32K 
CMOS RAM chips, a soldering iron, a 
diagram of the Tandy 200 RAM ex- 
pansion port (from the tech manual) 
and diagram ofthe RAM chip (from a 
memory products data book). As far 


| as construction projects go, this is 


going to be easy. There are no inter- 
nal changes to the Tandy 200, and the 
only soldering involved, is merely 
connecting three short pieces of wire 


to the pins of the RAM chip. 


On close examination of the port 
and the chip, I found that there were 
three pins that did not match. I just 


| moved them to their proper socket 


hole with piece of wire and the sol- 
dering iron. I installed two banks this 
way. The pins that are re-matched are 
1, 27, and 22. Pins 1 and 27 are inter- 
changed, and pin 22 ties to pin 20. 
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Here's the procedure... 


jm 


N 


6. 


Because the chips are 
CMOS, take proper cau- 
tion so that they won't be 
zapped by static electric- 
ity. Moistening your fin- 
gers and hands may 
lessen the chance of 
static build up. Don't try 
this on a rug. 


. With a long nose pliers, 


bend up pins 1, 27, and 
22 of the chips so that 
they stick straight out 
horizontally. 


. Using a grounded, low 


power soldering iron, at- 
tach pieces of wire about 
1 inch in length, to pins 1 
and 27. 


. Attach a piece of wire 


about 1/2 inch to pin 22. 


. Flip the Tandy 200 over, 


turn the MEM switch off, 
and open the memory 
expansion lid. 

You'll seethatif you try to 
plug the chip in the 
socket, the socket is too 
wide, that is if you try to 
insert it in the outer con- 
tacts. There are inner 
contacts (insert the pins 
of the chip between the 





Photo 1. The Toshiba chip needed to expand the memory of your 
Tandy 200 computer. 





Photo 2. The chip with soldered wires inserted into socket. 
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Directional 
<> Aid 


| by Warren L. Wilson 


E,0,X & 8 MOVE ONE SPACE 


CURSOR POSITION CONTROL BY KEYBOARD 
CAPITAL LETTERS NOT NECESSARY 








Figure 1. A template for cursor control. 
H ere is an aid that I have 
found helpful for some 
time. I have a reduced 
copy on the top-right hand corner of 
my Model 100, but not covering the 
low battery lamp. I recently had this 
aid cleaned up, camera ready, and 
thought that I might share it with 
others. My thanks to Diane Finnegan 
for the clean-up. 
= 








metal contact and the plastic of the 
socket), where the chip will fit. 
Before plugging in the chip, first 
insert the wire lead from pin 1 of 
chip into the outer contact of pin 27 
of the socket. Then insert the wire 








Data Acquisition System 
For the Model 100/102 and Model 4 


Provides engineers, technicians, educators, students and 
experimenters with a flexible solution to data acquisition and 
interface needs using the Model 102 and Model 4 computers: 


M102-DACQ-1 


8 digital input lines; 8 digital output lines; 8 channel, 8 bit A/D (ADC0809) 8 bit 
D/A (DAC0831); 3 channel, 16 bit prog timer (82C53); auto on/off; interfaces to 
system bus; 3 sq. in. wire wrap; user manual, schematics, programming in- 
structions/examples. Board (4.2" x 7.6") cabling and AC adapter. No case. 


M102-DACQ-TERM 


Terminal board for DACQ card and customer hardware; all DACQ signals 
available; screw terminals and diode clamps for all analog inputs; 12 sq. in. wire 
wrap; stand-offs to mount above M102-DACQ. Cabling provided. 


HI CAPACITY BATTERY PACK 


Sealed lead acid; outputs for both M102 and DACQ; charger, case. 


M102-DACQ SYS1 


Both DACQ-1 and DACQ-TERM cards mounted in case with terminal card ex- 


posed for easy access. 
M102-DACQ SYS2 


Both DACQ-1 and DACQ-TERM cards enclosed in instrument case. Cut-outs for 


cabling provided. 


Specify M100-DACQ for Model 100 interface cables 
Specify M4-DACQ for Model 4 interface cables. 


Postage Paid, M/C, VISA, money order, check, approved P.O. 
Sales Tax: add 4% (VT residents) 


Rural Engineering Inc. 
Route 14, Box 113F, So. Royalton, VT 05068 Tel. (802) 763-8367 


Circle 88 on reader service card 











lead from pin 27 of chip into pin 1 
of the socket, and the wire lead 
from pin 22 of chip into pin 20 of 
the socket. 

7. Carefully insert the chip into the 
socket. 





$185. 


8. After verifying that the wires do 
not touch each other or other pins, 
put the lid back on and turn on the 
MEM switch. 


This project may not be for every- 
one, some experience with a solder- 
ing iron and handling CMOS is re- 
quired. 

The chip I used was a TC55257PL- 
10 but the project was developed 
using a HM43256LP-15, which can be 
obtained from JDR Microdevices, 110 
Knowles Drive, Los Gatos, CA 95030. 
Their phone number is 1-800-538- 
5000, and the chip can be mail or- 
dered for $12.95 each. 

Be sure that the chip you use is LP 
(low power). The LP might be part of | 
the chip number. 

m 
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LECTRO: 


A Construction Utility 


If you like to experiment with electronics, here's a useful program to 
alleviate some of the math problems you may encounter. 


by W. R. Henry 











ECTRO is for those who like to construct elec- 
tronic devices, but dislike keeping all the math in 
their head. Asa bonus, directions are included for 


| the construction of a simple two-wire cable which turns 


your computer into a continuity tester. It is cheap and it 
stores in your pocket. 


LECTRO GIVES USER OPTIONS 

The program LECTRO.BA handles some of the most 
often used calculations in electronic construction. Using it 
as a shell program you can substitute your own menu op- 
tions and sub-routines to handle whatever math calcula- 
tions you wish. Simply edit those portions dealing with 
the menu options and their related subroutines to those 
that suit you. To keep the program as compact as possible 
remarks are not included (I’ve found it easy to follow pro- 
gram execution by simply editing each program line with 
a STOP command at the end of each program line. 


SINGLE KEY ENTRY 

Notice the subroutine at line 40500. This is a single-key 
entry which returns the key you hit as your menu option 
choice without the necessity of hitting the ENTER key. The 
same subroutine exits you from the program if you hit the 
[key. Italsoisinvoked after the prompt Any key to continue. 
Also, wherever a time delay is needed for the user to view 
the screen, this is handled in the subroutine in line 30000. 
This is a simple time delay loop. 


BUILDING & USING THE TESTER CABLE 
The tester cable consists of a length of speaker cable 
about 16 inches long. At one end aretwo flea-clips. At the 


| other are either two insulated alligator clips ora test probe 


and analligator clip (your choice). It will take longer to key 
in the LECTRO.BA program than to make the four simple 
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9 'OHMCAL 

1 CLS:CLEAR 5ØØ 

99 PRINT @121,"* LECTRON:A hardware hack 
er utility *" 

95 PRINT@172,"By W.R. Henry":GOSUB3ØØØØ: 
CLS 


19% PRINT" <1> Ohms from Color Bands 

<2> Circuit check w/Compu 

ter <3> Find circuit Paramete 
. X8 «4» Find 555 IC delays"; 


119 PRINT@241,"Choose by Number,or Hit [ 
key to end..."; 

139 GOSUB4Ø5ØØ:A%=INSTR(CHR$ (91) +"123456 
",A$) : IFA$=ØTHEN4Ø5SØØELSEONASGOTOL9Ø,2ØØ 
,509,700,809,999 

199 CLS:PRINT@163,"Thanks for using LECT 
RON, BYE NOW":GOSUB3ØØØØ :CLS:END 

209 CLS:PRINT"CONVERTING TO OHMS FROM CO 

LOR BANDS":GOSUB3ØØØØ:CLS 
201 LINEINPUT"1ST BAND ";B$ 
205 LINEINPUT"2ND BAND ";C$ 
21Ø LINEINPUT"3RD BAND ";D$ 
215 IFB$="BLK"THENA=Ø 

220 IFB$="BRN"THENA=1 

225 IFB$-"RED"THENA-2 

239 IFB$="ORG"THENA=3 

235 IFB$-"YEL"THENA-4 

240 IFB$="GRN"THENA=5 

245 IFB$="BLU"THENA=6 

259 IFB$-"VIO"THENA-7 

255 IFB$-"GRY"THENA-8 

269 IFB$="WHI"THENA=9 

279 MS=STRS (A) 

275 IFC$="BLK"THENB=Ø 

28Ø IFC$="BRN"THENB=1 

285 IFC$="RED"THENB=2 

29Ø IFC$="ORG"THENB=3 

295 IFC$="YEL"THENB=4 

3ØØ IFC$="GRN"THENB=5 

3Ø5 IFC$="BLU"THENB=6 

319 IFC$="VIO"THENB=7 

315 IFC$="GRY"THENB=8 

32Ø IFC$="WHI"THENB=9 

325 M$=MS$+STR$ (B) 

339 IFD$="BLK"THENC=.Ø 

335 IFD$="BRN"THENC=1Ø 

349 IFD$="RED"THENC=1ØØ 

345 IFD$="ORG"THENC=1ØØØ 
359 IFD$="YEL"THENC=1ØØØØ 








Listing 1. A program to help hardware hackers hack. 





continued 
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soldering joints necessary for the 
cable. Even if, like myself, you are all 
thumbs on soldering. 

As you may know, the phone port 
on the back of the portable has other 
uses (see page 207 of your Model 100 
operation manual for a diagram of 
this port). Continuity between pin- 
ports 2 and 8 can be tested with the 
simple subroutine in line 680 of 
LECTRO.BA. You can safely test this 
by choosing option number 2 from 
the menu, and inserting the ends of a 
paper clip bent into a U shape into 
holes 2 and 8 of the Phone port. This 
will not harm your computer (I 
adapted the software routine from 
RING DETECT, by Carl Oppedahl, in 
a previous issue of Portable 100. 


DO A LITTLE RESEARCH 
If you sometimes get stumped on 
some electronic formula as I do, you 
will usually find ample material in 
the way of formulas at your local 
library. Have fun on your next con- 
struction project, and let LECTRO.BA 
and the continuity checker help make 
it easier. 
a 





KEYBOARD 


SafeSkin m PROTECTOR 


Finally, A keyboard cover that remains in place during use! 
* PROTECTS CONTINUOUSLY - 24 HOURS A DAY - Against computer downtime due to liquid spills, dust ashes, staples, paper 


clips and other environmental hazards. 


* REMAINS IN PLACE during the operations of your keyboard. SafeSkin is precision molded to fit each key - like a “second skin.” 
* COVERS ENTIRE KEYBOARD CASE - Most SafeSkins are designed to cover the entire keyboard case - not just the key area. 
* EXCELLENT FEEL - The unique design eliminates any interference between adjacent keys, allowing smooth natural operation of 


your keyboard. 


* SafeSkin IS VIRTUALLY TRANSPARENT - Keytops and side markings are clearly visible. [n fact, SafeSkin is so clear, sometimes 


you may not know it's there! 


* DURABLE - LONG LASTING - SafeSkin is not a "throw-away" item. Many of our protectors have lasted over 3 years under 


continuous daily use, without failure. 


SafeSkin is available for the portables listed above and most popular desktops PC’s including IBM, APPLE, AT&T, COMPAQ, DEC 
EPSON KEYTRONICS, NEC, TANDY, TOSHIBA, WANG, WYSE, ZENITH. Specify computer make and model. Send $29.95, 


For Model 100 
Model 102 


Toshiba 1100+ 


NEC 8201 


Epson HX20/HX40 
IBM Convertible 


Sharp 2500 
Zenith 171 
Zenith 181 
Grid 


Check or M.O., VISA & MC include exp. date. Dealer inquiries invited. Free brochure available. 


Merritt Computer Products, Inc. 
4561 S. Westmoreland / Dallas, Texas 75237 / 214/339-0753 
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355 IFDS-"GRN"THENC-1909999 


$(21);"<3> Find Amperage"; 





3680 IFD$="BLU"THENC=1ØØØØØØ 

365 IFD$="SIL"THENC=MOD1ØØ 

379 IFDS="GLD"THEN C=MOD1Ø 

375 K$=STR$ (C) 

520 PRINT"RESISTOR VALUE IS "; VAL(M$)*V 
AL(K$);" OHMS 

530 GOSUB3ØØØØ :GOTOL 

6ØØ CLS:PRINT"FUNCTION:Circuit Continuit 
y Checker":GOSUB3ØØØØ :CLS 

695 PRINTG81, "WARNING! Before using your 
computer as a Continuity Checker be su 
re circuit under Test has NO Voltage 
present else Damage to Computer may 
result." 

619 PRINT:PRINT"Hit any key..." 

620 GOSUB4Ø5ØØ:IFAS$=""THEN63Ø 

630 CLS:PRINT"UNDER TEST,COMPUTER BEEPS 
IF CONTINUITY IS O.K. OR LCD SAYS (NO CK 

T CONTINUITY)" 

659 PRINT"Plug flea clips into PHONE por 
t holes #2 & #8 & micro clips into cir 

cuit being tested" 

669 PRINT"To test,hit ENTER key.To end S 

HIFT BREAK"; 

679 GOSUB4Ø5ØØ:GOTO68Ø 

689 IF(INP(2Ø8)AND32)=ØTHENCLS:BEEP ELSE 

PRINT"(NO CKT. CONTINUITY" 

685 GOTO68Ø 

709 CLS:PRINTSPACES(5);"<1> Find Voltage 
":SPACES (24) ;"<2> Find Resistance"; SPACE 


continued 





795 PRINT@241,"Choose by number"; 

710 GOSUB 4Ø5ØØ:A%=INSTR(CHRS (91) +"1234" 
,A$) : IFA$-ÜTHEN710ELSEONA$GOTO1990,729,75 
9,789 

720 CLS:PRINT"FUNCTION:FIND CIRCUIT VOLT 
AGE":INPUT"CIRCUIT AMPERAGE STA 

739 INPUT"CIRCUIT RESISTANCE ?";R 

735 CLS:PRINT"CIRCUIT VOLTAGE IS ";A*R;" 
VOLTS" :GOSUB3ØØØØ : GOTOL 

759 CLS:PRINT"FUNCTION:FIND CIRCUIT RESI 
STANCE": INPUT"CIRCUIT VOLTAGE ?";V 

755 INPUT"CIRCUIT AMPERAGE ?";A 

769 PRINT"CIRCUIT RESISTANCE IS ";V/A;"O 
HMS" : GOSUB3ØØØØ : GOTOL 

789 CLS:PRINT"FUNCTION:FIND AMPERAGE":IN 
PUT"CIRCUIT VOLTAGE ";V 

785 INPUT"CIRCUIT RESISTANCE ";R 

786 PRINT"CIRCUIT AMPERAGE IS ";V/R:GOSU 
B3ØØØØ:GOTOL 

899 CLS:PRINT"FUNCTION:TIME DELAYS FOR 5 
55 CHIP" 

819 INPUT"CAPACITANCE USED ";C 

820 INPUT"RESISTANCE USED ";R 

839 TD=C*R:PRINT"TIME DELAY IS ";TD;" SE 
CONDS" : GOSUB3ØØØØ : GOTO1 

1ØØØØ IF (INP(2Ø8)AND32)>-Ø THEN PRINT"N 
O CONTINUITY":RETURN 

30909 FORT=1TO15ØØ:NEXTT:RETURN 

49599 A$=INKEYS:IFAS=""THEN4Ø5ØØELSERETU 
RN 


End of listing. 
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REVEILLE, 


You Got to Get Up, You Got to Get Up,... 


by Richard D. White 








emember when you were in 
Scouts or the military and 
were awaked at dawn by 


Reveille? This simple BASIC pro- 
gram takes advantage of the Model 
100's great versatility to play Reveille 
for you when it's time to get up. It 
turns your laptop portable into a 
musical travel alarm that's perfect for 
| business trips or bivouacs. 

It won't jab you in the ribs with a 
swagger stick or kick your bunk, but 
it will tell you to get up with an insult, 
just like your old drill instructor 
would have done. You set the alarm, 
in 24-hour military format, of course, 
before you go to bed. When it's time 
to get up, the computer will sound 
Reveille until you stop the program. 

When you select and run 
REVEIL.BA, line 10 sets up a 64 by 2 
array to store all of the notes and 
duration values for the music. Line 20 
branches to a subroutine at line 1000 
that READs the DATA from lines 
10000 through 11010 into the array. 
Lines 90 through 100 allow you to set 
the alarm for a particular time. Note 
that there is no error trap here; T$ can 
be anything you type, but the wake- 
up time must be entered as 
| HH:MM:SS for the alarm to work, so 
enter the time carefully. 

The heart of the program lies in 
lines 105 through 900. Line 105 keeps 





updating the display with the current 
time, providing the clock function. 
Line 110 continually compares the 
Model 100’s inner clock time to the 





First, the program 
prints an insulting 
message for you 
to read when 
you get up 





wake-up time in the string variable 
T$. If there is a match, the program 
branches to line 900, otherwise it 
loops back to line 105. 





Theactualalarm function beginsin | 


line 900. First, the program prints an 
insulting message for you to read 
when you get up, then it branches to 
the musical note sounding routine 
that starts at line 2110. This routine 
refreshes the clock display so that 
you will know how much you've 
over-slept, and plays the notes in line 
2200. To change the tempo at which 
Reveille is played, increase or de- 
crease the last number in line 2200. 
Increasing the value will slow the 
music down and decreasing the 
value will make it play faster. Line 
2300 makes the music repeat by loop- 
ing back to line 2110. The notes to 
Reveille and the duration of each are 


contained in the DATA statements of | 


lines 10000 and on. The larger num- 





1Ø DIM A(61,2) 
2Ø GOSUB1ØØØ 


9Ø CLS:PRINT å 13Ø,""3: 
95 CLS 





L 


7 ANNEN HE HEE HEH HAA AA EHE RERO EXE 


1 

"Mes * 
3 7% REVEIL. BA * 
4 7] By Richard D. White * 
5 ?* FEB. 2,1988 * 
6 7# * 
ToC HEHEHE EEE 
8 REM *###* Initialize program #*##* 

9 CLS:PRINT å 135, "REVEILLE!* 


30 REM 3x«4* Set the alarm and display clock. *#** 
INPUT"Set alarm at";T$ 


100 PRINT 3 13Ø, "ALARM SET AT: 
182 REM 4334 Main loop starts here. ##*# 


"3T$ 





coutinued 





Listing 1. Reveille, as performed by the Tandy 100/102 and 200 computer. 
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TRAVEL CASE PLUS+ 


MAKES YOUR LAPTOP PARTS A PORTABLE SYSTEM 

e Unzip case, adjust typing easel, 
turn on switch and begin work 

e The Tandy 102 or 200 can remain 
connected to your disk drive 

* Navy blue padded nylon case 

and plastic tray protects 

equipment 

Lap front pocket will hold a 

TTXpress or Diconix 150 Printer 


Dimensions: 12.5" x 14" x 3" 













Not Sure About 
A Product Or 
Service You’ve 
Seen Here? 















Tray also fits: 
e Model 100 






Then why not fill out the Reader 















EE e NEC 8201A 
Service Card (elsewhere in this issue) e Chipmunk 
; è > , Drive 
right now and send it to us? You'll Case withiont tay 
holds: 






receive more information directly 
from the vendor or manufacturer at 
no charge. 


* NEC Multispeed 
e Toshiba 1100+ 


SIMONS 


PRODUCTS Travel Case+ $85.00 Case w/o tray $70.00 


Return within 15 days if not satisfied. 
10908 GLEN WILDING LANE Check, Money Order, Visa, M/C 
BLOOMINGTON, MN 55431 (Minnesota residents add 6% sales tax). 
Add $5.00 for shipping/handling in U.S.A. 
























PHONE (612) 881-7221 
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| 185 PRINT å 217,TIMES 


bers are the pitch and the smaller | | 106 REM #*** Compare clock to alarm setting. xxx 
ones are the duration. The routine in 107 REM x*i** If time, do alarm routine. 3x 
ET 110 IF TIMES = T$ THEN 920 
line 2200 makes the note SOUND by 112 REM axx If not, Toop: back. Niir 
first getting the pitch in array vari- 120 GOTO 105 
able A(N,1), then the duration in ar- 130 REM **** Alarm routine. 3x 
ray variable A(N,2). 708 CLS:PRINT å 134,'GET UP, DUMMY!*;:GOTO2110 
R bor eicht ] f 990 REM 3x This subroutine READs notes and duration into array. 3x 
i CINE er, eig HOGES of opera- | 1008 FOR X = Ø TO 61 | 
tion will put a lot of drain on your 1058 FOR Y = 1 TO 2 
| batteries, so it's probably wise to use | | 1188 READ A(X,Y) 
t l : I t t | 1200 NEXT Y:NEXT X 
an external power supply or to pu 1492 RETURN 
fresh batteries in the computer just 2100 REM x34 This routine sounds notes. xxx 
| before you start to run the program. 2110 FOR N = Ø TO 61 
You get K.P. if you let your batteries | | — EN 217, TIMES S SOUND A(N, 1),A(N,2)#2 
run down. Lights out, soldier, and 2300 GOTO 2110 
don't forget to set your alarm for 9999 REM x33 Notes and duration values for "Reveille". 3x 
Reveille at 06:00:00 hours! | | 10000 DATA 4184,4, 3134, 4y 2484, 2, 3134, 2, 4184, 4 


18180 DATA 4124,4,3134,4, 2484, 2, 3134, 2,4184,4 

19280 DATA 4184, 4, 3134, 4, 2484, 2, 3134,25, 4184, 4 

10300 DATA 3134,4,2484,8,3134,4 

18400 DATA 4184,4,3134,4,2484,2,3134,2, 4185,4 

| 1Ø5ØØ DATA 4184, 4,3134, 4, 2484, 2,3134,2,4184,4 

18600 DATA ^184,4,3134,4,2484,2, 3134, 2, 418444, 4184, 4, 3134, 8, 0,8 
18808 DATA 2484,4,2484,4,2484,4,2484,4,2092,8, 2484,8 

18980 DATA 2484,4,3134,4,2484,4,3134,4,2484,8, 3134, 8 

11008 DATA 2484,4,2484,4,2484,4,2484,4,2092,8, 2484, 4 

11818 DATA 4184,4,3134,4,2484,2, 313452, 4184, 49 41844 4,3134, 8, 0, 32 
11820 END 




















Program Listing for REVEIL.BA End of listing 
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NEW PRODUCTS 


edited by Linda M. Tiernan 








Uh, oh...how much power do you have left? 
The Model 2000 will tell. 


Battery Tester Keeps NiCads 
At Peak Performance 

The Mode! 2000 Battery Tester is 
designed to measure the percent of 
charge in your portable computer's 
battery. Similar to the fuel gauge in 
your car, the 2000 will measure the 
charge of the battery. A quick glance 
at the easy-to-read color-coded dial 


' will eliminate untimely dead batteries, 


and take the guesswork out of re- 
charging. The tester plugs directly 
into your computer's charge socket 
without any tools, wiring or assembly. 

Nickle-Cadmium rechargable bat- 
teries (NiCds) are unique in that they 
must be charged and discharged 
fully. Premature charging causes 
increases in the operating ledge (the 
point at which the battery will no 
longer supply the required levels of 
voltage/current to run equipment), 
which reduces battery life and short- 
ens battery running time. 

For further information, contact 
Vertox Company, 10022 Imperial 
Avenue #E, Garden Grove, CA 
92643 (714)530-4541. Or circle #71 
on your Reader Service Card. 


New Super Rechargable Batteries for Computers | 


The Hot Box and Super Hot Box 
are rechargable batteries housed in 
cases fabricated from mar-resistant 
engraving plastic. The Hot Box will 
operate a Model 100 for 40 hours, 
and the Super Hot Box will run a 
Model 100 for 80 hours. Either battery 
will recharge with the computer's AC 
adapter, and can be recharged while 
operating the computer. Two power 
plugs are provided for battery charg- 
ing during use, or for operating atape 
recorder or disk drive simultaneously 
with the computer. Up to 2000 partial 
recharge cycles are possible. The 
batteries are available in red, black or 
walnut wood grain finish. 

The Hot Box price is $59.95, the 
Super Hot Box price is $79.95. Prices 
include two eight-inch cables with 
each battery. For further information, 


contact Gnome Enterprises, 6145 
Quail #210, El Paso, TX 79924 
(915)755-1525. Or circle #70 on your 
Reader Service Card. 





The Hot Box (center top) can provide power for 
a computer for up to 40 hours per charge. 





It's 0101 
And Time To Go Home 


Sunrise Computer Products has introduced 
the Binary Clock, a sure-fire conversation piece. 
The numerical system of this 12-inch-diameter 
clock is in binary digits. It features a super- 
precision quartz movement which is guaranteed 
not to gain or lose more than two minutes per 


year, and it runs on one AA battery. 


The color is light beige with binary digits in 
black. Retail price is $34.95 plus $3.00 shipping 
& handling. For further information, contact 
Sunrise Computer Products, P.O. Box 709, 
Kenilworth, NJ 07033. Or circle #69 on your 


Reader Service Card. 





It's 1010—do you know where 
your programmer is? 





And Now, A Brief Puzzle 


Hardware-Software Integrations 
and Tri-Mike Network East have 
released XVI, a computerized puzzle 
for the TRS-80 Model 100, 102, 200, 
and NEC PC-8201A. The program, a 
simulation of the popular “16” game in 
which the player must arrange fifteen 
scrambled letters in alphabetical or- 
der on a 4-by-4 grid, uses a new 
assembly language technique devel- 
oped by Tri-Mike Network East. 





XVI loads and runs just like a 
BASIC program, but is machine-lan- 
guage. It's simple to play—just move 
the pieces around the grid with the 
arrow keys. You can scramble the 
puzzle at any time by pressing a key. 
For the terminally frustrated, there’s 
even a key that solves the puzzle. 
The state of the game is automati- 
cally saved on quitting, so you'll al- 
ways resume right where you left off. 


| At 718 bytes, XVI is small enough to 





leave in the computer all the time—a 
perfect way to enjoy wasted minutes 
in airports, waiting rooms, etc. 

Price is $19.95 plus $1.50 ship- 
ping and handling. For further infor- 
mation, contact Hardware-Software 
Integrations, 415 South Monroe 
Street, Suite 108, P.O. Box 2151, 
Monroe, MI 48161 (313)243-5320. 
Or circle #62 on your Reader Service 
Card. 
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THE CUSTOM 200 





Three Banks At Once 





ditors Note: This is part two of 
E a series of three articles. Unfor- 

tunately, part three was run in 
the April issue, sort of our little April 
Fools joke on ourselves. But for those of 
you who want the missing piece, here it 
is! 

In the March issue I discussed the 
significant aspects of customizing 
your Tandy 200, giving details on 
how to activate the unused function 
keys at the Tandy 200 menu. I also 
demonstrated the concept by adding 
F2 for reverse bank switching. In this 
issue I will discuss the addition of F7, 
which will display files in all three 
RAM banks at once. 

If you missed the March issue, 





have no fear. The current assembly 
listing is complete, but you should 
look for the previous issue if you 
want additional details about the 
relocation techniques and some in- 
sight as to the overall approach. 

Before installing this month's pro- 
gram code for the function keys, 
remember to prepare LOMEM. The 
code is designed to run at RAM 
address A001H. 

RAM memory begins at address 
A000H, but we can trick the T200 into 
thinking the RAM begins at A100H 
and the 256 bytes of RAM, from 
A000H to A100H will be at our dis- 
posal.. It will be protected from the 
operation system and is perfect for 





our needs. | 

To adjust LOMEM we must start 
with a completely ;empty bank. Cold | 
starting a RAM bank is the quickest 
way to accomplish this task. Next we 
must load, copy, or type in the 
following TEXT file. 

1 KILL” LOMEM.DO” 

2 N=1:AD=40960 

3 POKE AD,N 

4 POKE AD+256*N,0 

5 POKE 62703,160+N 

6 NEW 

This must be a TEXT file, NOT a 
BASIC program, and this TEXT file 
must be called LOMEM.DO. The 
variable N in line 2 is set for the 
number of 256 byte blocks you wish 





0 CLS: CLEAR256, 60000 
1 FOR I=60000 TO 60278 


115 DATA 8, 205, 132, 160, 175, 50, 30, 253 
116 DATA 205,247,18, 195, 164, 103, 33, 181 
2 PRINT@50,1:READ X:POKE I, X:SM=SM+X 117 DATA 242, 205, 30, 0, 205, 208, 160, 254 


3 NEXT 118 DATA 255, 204, 62,79, 202,62, 79, 230 

4 IF SM=33318 THEN CALL 60000 119 DATA 128,194, 161, 160, 17, 11,0,25 

5 BEEP:PRINT"error in data":STOP 120 DATA 195,138, 160, 35, 35, 35, 205, 208 
100 DATA 195,71,235,42,13,245,17,61 121 DATA 160, 254, 32, 202,173,160, 231,62 


101 DATA 160, 223, 202,164, 103,34, 102,160 |122 DATA 5,167,202, 186, 160,61,50,174 
102 DATA 235,34, 13,245,195, 164, 103, 66 123 DATA 160,195,163, 160, 62, 46, 231, 35 
103 DATA 97,110, 107, 32,66,97,99, 107 124 DATA 205, 208, 160, 231, 35, 205, 208, 160 


104 DATA 32,32,32,32,32,32,67,111 125 DATA 231,62, 5,50, 174, 160, 35, 195 

105 DATA 112,121, 32,75, 105, 108, 108, 32 126 DATA 135,160,205,177,155,122,201, 243 
106 DATA 32,32,32,32,32,70, 105, 108 127 DATA 219,216, 198, 4, 230,12, 254,12 

107 DATA 101, 32,32,32,32,32,0,245 128 DATA 202,216,160,71,195,105,155,1 


108 DATA 197,213,229, 56,10, 237,17, 188 129 DATA 228,0,33,99,234,17,1,160 
109 DATA 104, 223, 194,97, 160, 205, 150, 79 130 DATA 205,22,131,6,22,17,97,235 
110 DATA 33,21, 160,205,204, 17,58,12 131 DATA 33, 69,241,205, 186,65, 195, 1 
111 DATA 253, 254, 64, 202, 104, 160, 254, 2 132 DATA 160,72,111,111,107,24,67,97 
112 DATA 202, 213,160, 225, 209,193, 241, 195 133 DATA 108, 108,52, 48,57, 54, 49, 13 
113 DATA 168,156,205,77,79,6,0, 205 134 DATA 0,69,100,105,116,32,0 

114 DATA 132,160,6,4,205,132,160,6 135 REM END OF DATA 




















Listing one. The BASIC code for Reverse Bank Switching and Getting the Free RAM available in all three banks. 
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in the RAM bank, enter BASIC and 


to reserve. 
With LOMEM.DO as the only file 


RUN LOMEM. This program will 
end with a SYNTAX error but that is 
correct. At the OK prompt type NEW 
<CR> (Note: this is very important). 
Now there should be no syntax error. 
When you return to the Menu 
LOMEM.DO will no longer be there 
and the Bytes Free message will be 
19334 (19590 - 256). We now have a 
place to store and execute the code for 
our keys. 

It wasn't too difficult coming up 
with ideas for useful function key 
definitions. Here's another of my 
favorite routines: to view all RAM 
files at once, regardless of which 
bank you are in. 

To accomplish this you must be 
able to PEEK into the directories of 
each bank, and display the filenames 
of valid files. 

All of the function keys can be read 
at the keyboard buffer location 
FDOCH (64780) and the insertion of 


CPI 64 will test for F7 just prior to 
testing for F2. If F7 is detected then 
the screen will blank, and all files in 
bank #1 are displayed, followed by a 
blank line. all files in bank #2, and 
blank line, and all files in bank #3. 
The program then waits for a 
keypress, then returns to the menu. 
You know what files are in which 
bank, and can still use F1 or F2 to 
change banks. 

PEEKing into the directories of 
other RAM banks, or any address of 
any bank, and making that data byte 
available to the currently running 
program code, is done easily with a 
ROM call. 

With these routines you can 
effectively POKE or PEEk any RAM 
address in any bank. Since the code is 
in ROM, the switching of RAM banks 
has no effect on program execution. 
The ROM CALL always restores the 
original bank before returning to the 
running program in RAM. Here are 
the conventions... 

Register B hold the RAM bank to 


acces: 0 = bank #1; 4 = bank #2; 8 = 
bank #3. 

Register HL holds the address to 
be POKED or PEEKED. 

Register D holds byte to POKE 
(Register D returns with the byte 
PEEKed). 

When the above conventions are 
set up, executea CALL 9BBOH to do 
a POKE and execute aCALL 9BB1H to 
do a PEEK. 

Our use of these ROM CALLs is 
just to retrieve data, but knowing 
these rules will allow you to study 
the code in listing two with a better 
understanding of the ROM CAII reg- 
ister setup (see subroutine S FILE). 

The BASIC program in listing one 
will poke the code into memory, 
maintain a checksum for data accu- 
racy, and execute the code if all is 


correct. Whether you use the BASIC | 


program or the assembly source 
code, be sure to run LOMEM.DO 
first. 

-by Paul Globman 





;* LOMEM HOOK CODE BY P.GLOBMAN * 
D Copyright (C) 1987 * 
JOO IACI A OK RR IE 


> korn | 











L 


| x: EQU 60003-A001H ;CALC OFFSET 

CLS: EQU 4F4DH 

CRLF: EQU 4F3EH 

GONE: EQU 9CASH 

HOOKO4: EQU F50DH 

MENU: EQU 67A4H 

POINT: EQU 4F96H 

PRINT: EQU 11CCH 

WAIT: EQU 12F7H 
ORG 60000 
JMP START ;TO RELOCATOR 

LOADER: LHLD HOOKO4 ORIG. JUMP 
LXI D,HOOK-X  ; ADRS OUR HOOK 
RST 3 CMP HL - DE 
Jz Y THERE 
SHLD BYE+1-X ;BYE+1=0LD HOOK 
XCHG 
SHLD HOOKOA ;HOOK-OUR CODE 
JMP MENU p3 

LABEL DB *Bank Copy 
DB "Kill File 1,0 

HOOK: PUSH PSW ;SAVE ALL REG 
PUSH B 
PUSH D 
PUSH H 

i DESP 10 ;LOOK AT SP 10 
LELI ; BYTES BACK 
LXI D, 68BCH 
RST 3 ;CMP TO 68BCH 
JNZ DONE-X ;IF EQ->AT MENU 

;AT MAIN MENU 

j CALL POINT PRINT LABEL 
LXI H,LABEL-X  ; LINE ON THE 
CALL PRINT ; MAIN MENU 
LDA 64780 ;CHECK LAST KEY | 


CPI 64 
JZ S_FILE-X ;IF F7 -> S_FIL 
CPI 2 
JZ BNK-X ;IK F2 -> BACK 
DONE: POP H ;ELSE RESTORE 
POP D ;AND EXIT 
POP B ;BYE+1 (GONE) 
POP PSW ;is altered by 
BYE: JMP GONE ;loader subrtne 
S FILE: CALL CLS SHOW ALL FILES 
MVI B,0 ;FIRST BANK 
CALL BANK-X 
MVI B, ;SECOND BANK 
CALL -X 
MVI B, 8 ; THIRD BANK 
CALL BANK-X 
XRA A 
STA 64798 50 keystrokes 
CALL WAIT 
JMP MENU 
BANK: LXI H,F2B5H ;USER FILE #1 
S LOOP: CALL 1EH ;PRINT SPACE 
S1: CALL GET B-X ;ATTRIB BYTE 
CPI FFH ;NO MORE FILES 
CZ CRLF ; THEN RETURN 
JZ CRLF 
ANI 80H ;ACTIVE FILE? 
JNZ FILE-X ; YES-SHOW IT! 
LXI D,11 ;NO-GET NEXT 
DAD D FILE SLOT AND 
JMP S1-X DO IT AGAIN! 
FILE: INX H ;SKIP ATTRIB 
INX H ;BYTE AND ADRSS 
C LOOP: INX 
CALL GET B-X ;GET FILENAME 
rE” ;SKIP SPACES 
JZ SKP-X 
RST 4 ;PRINT FILENAME 
SKP: MVI A,5 ANY MORE CHRS? 
ANA A T = 
JZ C DONE- ;NO-THEN DONE 
DCR A ADJUST COUNTER 
STA SKP+1-X STORE IT AND 
JMP C LOOP-X ;GET NEXT CHR 





C. DONE: MVI A,"." ;PRINT THE DOT 


INX H ;AND FILE EXT 

CALL GET B-X 

RST 4 

INX H 

CALL GET B-X 

RST 4 

MVI A,5 ; RESTORE COUNT 

STA SKP+1-X 

INX H AND DO NEXT 

JMP S. LOOP-X FILE SLOT 
GET B: CALL 9BB1H ;MAKE THIS PEEK 

MOV A,D PUT BYTE IN A 

RET 


BNK: DI ; INSTEAD OF 
IN D8H ;BACK ONE BANK, 

B1 ADI 4 ; WERE REALLY 
ANI OCH i GOING AHEAD 
CPI OCH TWO BANKS BY 
JZ B1-X MAKING THE ROM 
MOV B,A THINK WE BEGAN 
JMP 9B69H 31 BANK AHEAD 


; MOVE HOOK INTO PLACE A AND INITIALIZE 


START: LXI B,START-LOADER ;# of bytes 
LXI H, LOADER ;source 
LXI D,LOADER-X destination 
CALL 8316H ;move block 


;FIX BASIC F6 / F7 


MVI B,22 3# of bytes 
LXI D,KEY 6 ;source 
LXI H,F145H ;destination 
CALL 41BAH ;move it 
JMP LOADER-X ; INITIALIZE 


| 
DB 'Hook',24,'Ca1140961',13,0 


DB 'Edit ’,0 








Listing 2. The assembly language source code for the Reverse Bank switching and retreiving the available free RAM in all three banks. 
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MODEL 100/NEC PC-8201A 
8K Memory Module 

$19 each 

Easy to install. Open the case and plug- 
them-in. Each module expands your 
memory by 8K bytes. Extra low power 
components mean long battery life. Very 
low profile means a proper fit in the 
NEC PC-8201A. Detailed instructions 
make installation quick and easy. You can 
expand your Model 100 to 32K and your 
PC-8201 to 64K (2 banks of 32K each). 


NEW!!! 

MODEL 102 

8K Memory Module 
only $9.95 


Easy to install. Just open the hatch 
and plug it in. 











FOUR MODEL 100 BOOKS 


The Model 100 Program 
Book 
by Terry Kepner and 
David Huntress 

This book contains 51 useful and 
interesting BASIC programs 
designed for home, office, and 
educational uses. Program ex- 
amples include: Bar Graph, Depre- 
ciation, Annuity, Pie Chart, Forms 
creation, Invaders game, Memory 
scan, Touch typing tutor and many 
others. 
Only $12.95 plus shipping. 


60 Business Applications 
Programs for the TRS-80 
Model 100 Computer 
by Terry Kepner and 
Mark Robinson 

Here are 60 powerful programs for 
interest calculations, annuities, 
depreciation, invoices, breakeven 
sales analysis, and more. 
Only $17.95 plus shipping. 











TANDY 200 
24K Memory Module 
$49 each 


Simply pop open the hatch with a coin 
and plug in one or two of these modules. 
Each module adds a 24K bank of 
memory to the TANDY 200. It's like 
getting two more machines. The built in 
COPY function key copies files between 
banks instantly. Like our 8K, we build 


reliable memory chips available. 


THE PURPLE POLICY 

Try any of our products for 30 days, 
satisfy yourself that our service, quality, 
and prices add up to the best value 
anywhere—if not completely satisfied, 


Circle 74 on reader service card 


you can return the product for a full 
refund. Prices include UPS surface 
shipping (in Continental USA)—even the 
phone call is free. 


30-day money-back guarantee. 


IT’S EASY TO ORDER 

Send your order with payment to the 
address below. Or, if you prefer, credit 
card orders can be handled by 
phone—VISA, MasterCard, and 
American Express are welcome. 
California residents add 6% sales tax. 
Checks allow 3 weeks to clear. 


1-800-732-5012 TOLL FREE 
Orders only (8am—5pm PST) 


(805) 987-4788 In California 


For orders or customer service 
me PURPLE 
these with the lowest power and most Cad COMPUTING 


420 Constitution Ave. 
Camarillo, CA 93010 


Telex: 888661 (PURPLE) 


Canada: Canada Portable Computer, (604) 534-6441 
Australia: Softech Computer Services, (2) 419-8899 










Inside the Model 100 
by Carl Oppedahl 
" „an excellent Guide" — New York 
Times 

Inside the TRS-80 Model 100 is a 
thorough guide to the internal 
workings of the Tandy Model 100, 
the best selling portable laptop 
computer. This book is a valuable 
source of information for those who 
wish to learn assembly language 
programming on the Model 100. 
Other areas include: Disassembled 
ROM routines; Keyboard scanning; 
UART, RS-232C, and modem; 
Clock/calendar chip; Interrupt 
handling; 8085 instruction set. 
Only $19.95 plus shipping. 






Short, Simple, And Basic 
80 Pheasant Glenn, P.O.Box 11 


West Peterborough, NH 03468-0011 
Your source for Tandy Model 100/102 books. 


User Guide and Applica- 
tions for the TRS-80 Model 
100 Portable Computer 
by Steven Schwartz 

Gain expertise on the Tandy 
Model 100 with 14 ready-to-run 
programs for business. This pack- 
age includes programs for statistics, 
graphics, sound, and more. With 
cassette tape. 
Only $42.95 plus shipping. 
Or buy them separately— the book 
is only $17.95; the cassette tape is 
only $25.00, plus shipping. 


Please add $2.00 shipping and 
handling for each book ordered. 


0M 






















ADVERTISER'S INDEX 





The Portable 100 Classifieds 


Ad and Portable 100 Magazine. 
Check Tandy's price, then call us 
today, while they last. Call 1-800-732- 
5012 or 805-987-4788 in CA. Visa, M/ 
C, Amex. 


W e have 25 investigators trav- 
elling Nationally with 100, 102 lap- 
tops. Lot's of trouble finding suitable 
phones to hook up for check-ins. 
Help needed. InPhoto, 1163 E. 
Ogden (Suite 705-360), Naperville, 


Ill 60540, 312/369-9650 eachers, stay organized using 


your gradebook and our Grade Man- 
agement System: 

SETUP.BA CLASS.BA GRADE.BA 
REPORT.BA. 

Four under 6K. programs written/ 
used by teachers. $49.00 

Specify 100/102/200 Disk PDD1/ 
PDD2 Software by STEFFENS’ 

1731 William Ct., Little Chute, WI 


T ANDY 600 MEMORY-$99. We 
make the 96K memory expansion 
board’s that fits inside your Tandy 
600 Portable. You can expand your 
600 yourself to 224K with two boards. 
Complete installation instructions, 
90 day warranty, and 30 day money 
back guarantee. Limited time offer, 
only $99.00 each if you mention this 


CSSSSSSSSSSSSSSSSSSSS SSS SAX SSSSXAXSSAXSSSXSSSXSSSSESSXSESEXXXXSXESSSXEZSESZEZSZEZXSSEXXXZXESESSXSSESSSSEEEXXTN 


The Portable 100 C lassifieds 
E 


HOW IO PLACE A CLASSIFIED AD: 


Categorize your advertisement (Hardware, Software, Services, Wanted, Etc.) and carefully type 
your message. We are not responsible for correctly interpreting handwritten advertisements. 
Phone numbers, street numbers, dimensions, and any abbreviations count as one word. Logos, 


company or product, are not allowed, neither are display advertisements. Business rates are$1.60 | 


per word; non-business rates (individuals advertising) are $1.30 per word. Add up the cost and 
send the advertisement copy with a check, money order, Visa, or Mastercard number to: Portable 


100 Classifieds, 145 GroveSt. Ext., P.O. Box 428, Peterborough, NH 03458-0428, c/o Linda Tiernan. | 


Make checks payable to Portable 100 Classifieds. Include your complete return address and phone 
number (phone number is printed only if it is included in the advertisement itself). Materials due 
the 1st of the month, two months prior to the magazine cover date (example: materials for the 


February issue must be received by December 1st.) Advertisements received after the deadline - 
will appear in the next scheduled issue. Payment must accompany order. No refunds for E 


advertisements that miss deadlines, regardless of reason. Wereserve theright to change advertise- 
ment categories, and to reject, edit, or cancel any advertisement we deem improper. There are no 
agency discounts for classifieds. For faster service call 603-924-7949. 














Ad Category —— —— —— No.ofwordsx(1.60)(1.30)—— —sIssuestorun . — 


Name 
Address 
City State Zip 














Phone Number 





Total Enclosed x (Ad Cost x Issues) 


Visa/Mastercard Number 


Signature . 
Ifmorespaceisneeded, pleaseuseaseparatesheetofpaper. 


Exp. Date 
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Free 
Information 





For free information on 
products advertised in this 
issue of Portable 100, locate 
the Reader Service number 
corresponding to the adver- 
tisement that interests you. 
Circle the number on the 
Reader Service Card at the 
center of the magazine (or on 
the wrapper protecting the 
magazine if you are a sub- 
scriber) and drop it into the 
mail. The literature you've 
requested will be forwarded 
to you without any obliga- 
tion. Please allow 3--5 weeks 
for delivery. 


ADVERTISER 








65 Merrit 29 
| 78 PCSG 25 
40 PCSG CIV 


74 Purple Computing 34 
| ot Rural Engineering 27 
60 Simons Products 31 
22 Sound Sight CII 
a Traveling Software 17 
34 Traveling Software 18 
36 Traveling Software 19 
| ** Traveling Software 20 


** Please contact this advertiser directly 


Don't forget to 
. Say you saw it 
in Portable 100! 

















: h 
.. Wit 
On the road. . .at home 
. . -in the office. . .in the 
air. . .the variety of tasks 
you can perform with 


your Tandy portable is 
expanding constantly. 


To keep fully informed 
and up-to-date about cur- 
rent trends, new products, 
and new uses for your 
laptop, you need Portable 
100 magazine. 


From sophisticated input/ 
output (I/O) calls and 
their applications, to sim- 
ple disk drives, Portable 
100 magazine covers it all. 


Portable 100 gives you 
features, news, columns, 
and reviews that are 
thorough and timely. 
And they are written in a 
fast-paced, easy-to-read 
style, by leading experts 
in the computer field. 





In upcoming issues you 
will discover. . . 


* how new peripherals 
can make you more 
productive. 

* more efficient ways 
to communicate with 
your desktop. 

* where to buy low-cost 
public-domain 
software. 

* how your business 
can be more profitable 
with your portable at 
your fingertips. 

* where to find the best 
bulletin boards and 
information services. 

* and much more! 


Don't miss even a single 
valuable monthly issue. 
Fill out the coupon below, 
or to charge it to your 
credit card, call 


1-603-924-7949 


Send no money now! We 
will gladly bill you. 


YES! I want to explore ways to be more productive with my 
e Tandy portable. . .and save 47% off the newsstand 
price. Send me a year's subscription (12 issues) of Portable 100 for $24.97. 





C Payment enclosed [.] Bill me 

Make checks payable to Portable 100 MONEY BACK 
GUARANTEE: 

Name 3 : If you are not completely 
satisfied with Portable 100, 

Address — —— you may cancel your sub- 

ciy — i Suie EE scription and receive a full 





refund. Please allow 6-8 
Canada $45.97 (Canadian funds), Mexico, $29.97. Foreign weeks for delivery of your 
Surface $44.97. One year only. U.S. Funds drawn on U.S. banks. first issue. 

Foreign Airmail, please inquire. Please allow 6-8 weeks for 
delivery. DRA 





All on one ROM. Tray the finest four programs g 
++ available for the Model 100 — guaranteed. 
Try it for 30 days. If you aren't blown away by the 


. excellence return it for a full refund. — i 


The four best programs fot the Model 3 


100 all on one ROM. 32K of powet with- 


out using any RAM for program stor-. |- 
age. ‘This is the PCSG Snap-In ROM © 


that? just presses easily. into the little 


ROM socket inthe compartment on the. 
back. You access the four: right from the - 


main menu like built-ins. 


Write ROM — the: definitive - word: 


processor for the Model 100: Function 
| key formatting or dot commands. 
| Search and replace, Library feature — 


|; inserts words, phrases or whole docu- . 
| ments into text from just a code: MAP - 


| lets you see a picture of your document. 


| In all thére. are 60. features and func-- 
tions, Noone can claim faster operation. ; 


| FORM lets you create intéractive forms 


with. on-screen prompts: that you: can’ 
answer froni the keyboard. Nothing else | 
for thé Model 100 compares with the - 
features. of. Write ROM. Exactly the: 


same as the Write ROM sold as à single 
program. Infoworld says it: “makes tH 
| Model 100 a viable: writing unit : 


passed our highest expectations, for 


quality and clarity.” 


‘Lucid Spreadsheet: Th his is: the. iii i 


PICO magazine says "blows | Multiplan | 


right out of the socket" and Infoworld | 


performance ‘rated. as “excellent”. and 


‘Said “makes the Model 100. compute.” 


Givés you features you cannot get with 
Lotus 123. Lets you build spreadsheets 
in your Model 100 that would consume 


140-150K ona desktop. Program gener- | 
ating capability. with no programming |. 
- knowledge required. . Variable column 
widths. Includes find and sort with func- 
| tion "key control. It's fast, recalculates 


like lightning. No feature has been taken 
from the original, only: new ones added. 


Database: This-is-à relational data 


base like no other. You can-do every- 


-thing from mailing lists to invoices: No 
‘complicated pseudo-coding, you create 
input ‘screens as simply as typing mto 

TEXT. You are not limited by Size; «you 
‘can have as latge an input screen as you - 

| wish, Prints out teports or forms, get- 


ting information from as many files as 


1214) 351-0564 


| DATT FATAL EN B. 


- Total interface with Luc d worksheets. 
«Qutliner: Does ev that Think- 
tank does ona PC but à whole lot better. 
Includes a Sort for yout headlines. Lets - 
«you have: headlines of up to 240 charac- 
ters. Has cloning, hoisting and sideways: 


t Scroll up to 250 characters. Like Lucid, 


this one sets a new standard. for outlin- 
ers. This is the: way to TA and « organize 
your projects. ++ H 

«Present Lucid T1. Write ROM | 


Owners Can. -upgrade for 150." If ini it 
| have both its $125.. ^ * 


As usual PCSG sells the bibat ROM t 
‘on a thirty day. guarantee. If. for any 
reason you are not. såtisfi ed, simply 
return it for a full refund. 

We are excited about this product. 


Super ROM. gives the Model 100 the | 
true power of å desktop. Noother multi- 


program | ROM has software that com- - 
pares. But don't take our wotd forit. We 
invite you to make that comparison jif 
LH Priced at un 95 on brite TE 
ROM. 


Got stuck with Mau elses multi: ROM» 1 
ler det it for sj $150. 


.11035 Harry. Hines Blvd., #206, Dallas, TX 75229 
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